按你的要求，代码如下，调试过，没有问题Private Sub Command1_Click() Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sqlstr As String
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Database1.mdb"
Conn.Op...
