VB对数据的访问

SQL = " Select * from 某某表 "
SQL = SQL & " where 姓名='张三' "
Set rs = Nothing
Set rs = SelectSQL(SQL, msg)
此时rs就是的记录就是张三的记录，*的意思是所有的列，可改动，比如把*改成年龄，则rs就是张三年龄的记录。
这是最简单的查询语句，其中SelectSQL是在公用模块中定义的一个函数，如下：
Public Function SelectSQL(ByVal SQL _
As String, ByRef msg As String) As ADODB.Recordset

Dim Conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String

On Error GoTo ErrorHandle
sTokens = Split(SQL)
If InStr("SELECT", UCase((sTokens(0)))) Then
'打开数据库连接
If OpenConn(Conn) Then
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set SelectSQL = rst
msg = "查询到" & rst.RecordCount & " 条记录! "
End If
Else<