VB挂ACCESS数据库的数据查询语句？

'连接本地数据库，成功则返回 T 否则返回 F
'##ModelId=
Public Function OpenClientDatabase(ByVal taTablePath As String) As Boolean 'App.Path
On Error GoTo err:
err.Number = 0

'打开数据库
Set AppConn = New ADODB.Connection
AppConn.CursorLocation = adUseClient
connStr = "provider=microsoft.jet.oledb.4.0;User ID=Admin;data source= " & taTablePath & "\***.mdb ;Jet OLEDB:Database Password="
AppConn.Open connStr

err:
If err.Number <> 0 Then
OpenClientDatabase = False
Else
OpenClientDatabase = True
End If
End Function