提示失败，也可以用访问数据库里的数据啊？
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=d:\我的桌面\db1.mdb"
If cn.State = abstateopen Then
MsgBox "成功！"
Else
MsgBox "失败！"
End If
End Sub

[ 本帖最后由 a597991368 于 2011-12-4 15:13 编辑 ]

Set cnn = New adodb.connection
    cnn.open "provider=microsoft ace oledb.12.0;persist security info=false;user id=sa;initial catalog=accdb_'所连接的数据系统'"