Dim Cnn as new ADODB.Connection
Dim Rs as new ADODB.Recordset
Cnn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db1.mdb;Persist Security Info=False"
Cnn.Open
rs.open "select * from TableName", Cnn, adOpenKeyset, adLockOptimistic
Dim Cnn as new Connection
Dim Rs as new Recordset
Cnn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db1.mdb;Persist Security Info=False"
Cnn.Open
rs.open "select * from TableName", Cnn, adOpenKeyset, adLockOptimistic
然后,
Dim Cnn as new Connection
Dim Rs as new Recordset
Cnn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db1.mdb;Persist Security Info=False"