VB和数据库

Question

Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Cn.CursorLocation = adUseClient
Cn.Open "Provider=SQLOLEDB;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=数据库名;Data Source=SQL服务器名"
Rs.Open "select * from ztxx",cn,adOpenStatic,adLockBatchOptimistic 
MsgBox Rs.RecordCount
set DataGrid1.DataSource=Rs

Answer 1

Dim db As Database
    Dim Rst As Recordset
    Set db = OpenDatabase("C:\My Documents\a.mdb")
    Set Rst = db.OpenRecordset("Employ")