Dim cmdDb As ADODB.Command Dim rsDb As ADODB.RecordsetPrivate Sub Form_Load() Set db = New ADODB.Connection db.ConnectionString = "" 'make a connection with your DBSSet cmdDb = New ADODB.Command cmdDb.CommandText = "sql....." 'or StoreProgress cmdDb.CommandType = adCmdTextSet rsDb = New ADODB.Recordset rsDb.CursorLocation = adUseServer rsDb.CursorType = adOpenStatic rsDb.LockType = adLockOptimisticdb.Execute 'execute the programEnd Sub
Dim rsDb As ADODB.RecordsetPrivate Sub Form_Load()
Set db = New ADODB.Connection
db.ConnectionString = "" 'make a connection with your DBSSet cmdDb = New ADODB.Command
cmdDb.CommandText = "sql....." 'or StoreProgress
cmdDb.CommandType = adCmdTextSet rsDb = New ADODB.Recordset
rsDb.CursorLocation = adUseServer
rsDb.CursorType = adOpenStatic
rsDb.LockType = adLockOptimisticdb.Execute 'execute the programEnd Sub
请说清楚点