Dim Conn As ADODB.Connection Dim Rs As ADODB.RecordsetPrivate Sub Form_Load() Set Conn = New ADODB.Connection Set Rs = New ADODB.Recordset Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False" Conn.Open Rs.Open "select * from users", Conn, adOpenKeyset, adLockBatchOptimistic Set Me.DataGrid1.DataSource = Rs End Sub
Dim Conn As ADODB.Connection
Dim Rs As ADODB.RecordsetPrivate Sub Form_Load()
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False"
Conn.Open
Rs.Open "select * from users", Conn, adOpenKeyset, adLockBatchOptimistic
Set Me.DataGrid1.DataSource = Rs
End Sub
兄弟谢谢了太谢谢了,,datagrid控件和DBGrid1有啥驱别啊,我用的是vb6.0sp5!!!