dim adocnn as adodb.connection
dim adors as adodb.recordset
set adocnn =new adodb.connectin
adors.adc=…………'设游标
set adocnn= new adodb.recordset
adocnn.open ……‘打开连接
adors.open"select * from table where …………" '(条件查询)
…………
这是用代码来完全实现
Dim cmd As New ADODB.Command
Dim conn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINDOWS\Desktop\kjkw\sc\Data.mdb;Persist Security Info=False"
With cmd
.ActiveConnection = conn
.CommandType = adCmdTable
.CommandText = "eid"
.Parameters(0) = "32050104320395"
Set Rst = .Execute
End With