在下列代码里如果直接指定Adodc1.RecordSource="学生表"，可以连接，使用了SQL语句 提示 ：From 子句语法出错，请帮忙看下 出错在那里？
Dim sql As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\ACCESS数据库\db1.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
sql = "select * from 学生表 where ID =30318 "
Adodc1.RecordSource = sql
Adodc1.Refresh
Adodc1.Recordset.MoveNext
Text1.Text = Adodc1.Recordset.Fields("ID").Value
Text2.Text = Adodc1.Recordset.Fields("姓名").Value

我也刚发现错误 是指定类型错误 谢谢回答

又出现新问题 连接上以后 ，我加了如下代码，只是为了试下Adodc1.Recordset.MoveNext
结果出错 提示 ：BOF和EOF中有一个是“真”，或者当前记录已经被删除，所需的操作需要一个当前的记录
当前记录绝对有的 请指点一下
If Adodc1.Recordset.EOF = True Then
Text1.Text = Adodc1.Recordset.Fields("ID").Value
Text2.Text = Adodc1.Recordset.Fields("姓名").Value
Else
Adodc1.Recordset.MoveNext
Text1.Text = Adodc1.Recordset.Fields("ID").Value
Text2.Text = Adodc1.Recordset.Fields("姓名").Value
End If

4到5楼的朋友 我按你的测试了一下 还是同样的出错提示

问题补充：刚试了 如果只是 if not Adodc1.Recordset.EOF then Adodc1.Recordset.MoveNext 则可以运行 但加上
Text1.Text = Adodc1.Recordset.Fields("ID").Value
Text2.Text = Adodc1.Recordset.Fields("姓名").Value
就会出现上面的错误 但如果不添加if not Adodc1.Recordset.EOF then Adodc1.Recordset.MoveNext 直接使用
Text1.Text = Adodc1.Recordset.Fields("ID").Value
Text2.Text = Adodc1.Recordset.Fields("姓名").Value
也可以运行 郁闷了

这里我搞错了一个概念：.EOF是指在最后一条记录之下 （已经超出范围），不是说在最后一条记录上了 我再去试试

犯了个傻错误，刚才是使用sql查询出来的一条记录 使用MoveNext 再显示数据肯定出错了
浪费大家的时间 真是抱歉 我 我算了