[求助] 利用RECORDSET打印记录？？？
Private Sub Form_Load()
Dim rst1 As Recordset
Set rst1 = New ADODB.Recordset
rst1.ActiveConnection = "Provider = Mircrosoft.Jet.OLEDB.3.51;" & "Data Source = D:\1\db2;"
rst1.Open "表1", , adOpenKeyset, adLockPessimistic, adCmdTable
Do
If rst1.EOF Then
Exit Do
End If
rst1.Find()
Debug.Print rst1.Fields(""), rst1.Fields(""), rst1.Fields(""), rst1.Fields("")
rst1.MoveNext
Loop
rst1.Close
Set rst1 = Nothing
End Sub
运行结果：实时错误：3706 。未找到提供程序。该程序可能未被正确安装。
报错行：rst1.ActiveConnection = "Provider = Mircrosoft.Jet.OLEDB.3.51;" & "Data Source =
D:\1\db2;"
清高手指点。谢谢
VB菜鸟
