Private Sub CommandButton1_Click()
Set DBSERVER = New ADODB.Connection
Set Rs = New ADODB.Recordset

DBSERVER.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\" & "xinxi.mdb;Persist Security Info=False"    ' "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\xinxi.mdb"

MsgBox DBSERVER.State ‘结果为1


Rs.Open "Select * From jichu " '此处报错，连接无法用于执行此操作。在此上下文中它可能已被关闭或无效


End Sub

rs.open "Select * From jichu ",dbserver,openstatic,打不出来。。。输入“，”会自己跳出来，选个就哦了

缺数据源连接参数，试试Rs.Open "Select * From jichu ",DBSERVER

我顶一下下，学习一下下