Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from jishijilu" '这里出现的出错提示
Adodc1.Refresh
Set Text2.DataSource = Adodc1
Text2.DataField = "shijian"
大家帮我看看怎么回事，是缺什么吗？

这个变量声明我加上去了
Dim Adodc1 As New ADODB.Connection

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Private Sub Form_Load()
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
rst.Open "select * from a1", cnn, adOpenKeyset, adLockOptimistic
Set Text1.DataSource = rst
Text1.DataField = "表情"
Set Text2.DataSource = rst
Text2.DataField = "快键"
End Sub
我一般是这么写的，没问题！不知道题目中的写法是怎么回事？

哦，知道了，原来是用控件了

怎么解决的啊.楼主