dim  gDb As ADODB.Connection
dim  constr As String
dim  strPathAndFileName As String
Dim rs As ADODB.Recordset
Private Sub Form_Load()
    Set gDb = New ADODB.Connection
    Set rs = New ADODB.Recordset
End Sub
 gDb.Open "Provider=Microsoft.JET.OLEDB.3.51;Data Source=" & App.Path & "\MSTC0198.mdb;Jet OLEDB:Database Password=abcdefghijkl"
    'gDb.Open constr
    
    If rs.State = adStateOpen Then rs.Close
    rs.Open "select * from glob", gDb, adOpenKeyset, adLockOptimistic
    Set DataGrid1.DataSource = rs
    DataGrid1.Refresh
换成Provider=Microsoft.JET.OLEDB.4.0后,提示不能读取记录;在'glob'上没能读取数据权限。HELP!
----
我用的这个glob库是金蝶的帐套,*.ais的格式,改成*.mdb后,可用ACCESS2000看。(打开时要密码abcdefghijkl)!