许多文章都涉及到Getrs函数，但大都没有介绍，这是一个自定义函数，函数的意思大家一看就明白，就是将一字符串转为记录集，此函数特别有用，在许多地方皆能用到。现介绍如下：

Public  Function Getrs(Byval strQuery as string)  as ADODB.Recordset

Dim rs As New ADODB.Recordset

Dim  conn As New ADODB.Connection

on Error GoTo Getrs Error

Set conn=CurrentProject.connection

rs.open Trim$(strQuery),conn,adopenKeyset,adLockoptimistic

Set  Getrs =rs

Exit  Function

Getrs_Error:

MsgBox (Err.Description)

Resume Getrs_Exit

End  Function