将修改后的数据保存到数据库时错误
下面这段代码是将修改后的数据保存到access数据库,程序运行时提示如图所示：



请修改：
sql = "select * from 表1 where 学号=" & Trim(学号) & ""

问题就在上面这句，请修改


谢谢！


Private Sub Command4_Click() '保存修改
Dim cn As New ADODB.Connection '
 Dim Rs As New ADODB.Recordset
 Dim Rs1 As New ADODB.Recordset
 Dim sql As String, 学号 As String

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=h:\数据条件源学习.mdb;Persist Security Info=False" '数据库

sql = "select * from 表1 where 学号=" & Trim(学号) & ""
Rs.Open sql, cn, 3, 2
If Rs.EOF <> True Then

Rs.Fields(1) = Trim(Text2.Text)
Rs.Fields(2) = Trim(Text3.Text)
If IsNumeric(Trim(Text4.Text)) = False Then
MsgBox "年龄必须为数据，请重新输入"
Else
Rs.Fields(3) = Trim(Text4.Text)
Rs.Update

MsgBox "成功更新一条记录", , "提示"
End If
Else

MsgBox "该数据不存在，操作异常", vbCritical, "错误"
End If

End Sub

版主你好，根据你的提示修改好了，谢谢！