Question

急！！对象'refresh'的方法'iadodc'失败！！！求牛人指导！！

Private Sub Command1_Click()
'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + "C:\Documents and Settings\Administrator\桌面\企业人事管理\练习\qiyetongxun.mdb" + ";Persist Security Info=False"
Dim sql As String
If Text1.Text = "" Then
MsgBox "请输入内容！", vbInformation Or vbOKOnly, "zgl提示"
Else
'sql = "select * from tongxun where user =" & Me.Text1.Text
sql = "select * from [tongxun] where [user] ='" & Me.Text1.Text & "'"
Adodc1.RecordSource = sql
Adodc1.Refresh
If Adodc1.Recordset.EOF = True Then
MsgBox "暂无此人信息", vbInformation Or vbOKOnly, "zgl提示"
Adodc1.RecordSource = ""
Adodc1.Refresh
End If
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End If
End Sub
这段程序一直报错，我用的adodc控件，控件已经设置连接和数据库！！但依然错误！！

Answer 1

先只用三行代码，测试连接数据库，数据表是否成功！
Adodc1.ConnectionString = "Provider=Microsoft.Jet......."
Adodc1.RecordSource = "select * from [tongxun] ......"

Adodc1.Refresh
就这三步曲，看看
如果报错，就检查数据库路径，文件名，数据表名，等等是否正确。

然后如果不报错了，再加上后面的代码.... ，一点一点检查！

Answer 2

数据库连接错误或sql语法错误，请仔细检查，包括表名、字段名，字段类型等。

Answer 3

运行到哪一段的时候错了
Adodc1.RecordSource = ""
Adodc1.Refresh
这两段有问题吧
要不你来个adodc1.close 看看。