VB提示实时错误

Question

代码如下：
Dim conn As Connection
Dim sql As String
Dim rs As Recordset
If Trim(txtid.Text) = "" Or Trim(txtclass.Text) = "" Or Trim(txtname.Text) = "" Then
MsgBox "必须输入学号、班级和姓名", , "错误"
Exit Sub
End If
If Not IsNumeric(txtid.Text) Then
MsgBox "学号只能包含数字", , "错误"
Exit Sub
End If
Set conn = CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\BaiduYunDownload\VB\学生信息管理\student.mdb;"
sql = "select count( * )from 学生个人信息 where 学号='" & Trim(txtid.Text) & "'"
Set rs = conn.Execute(sql)
If (rs.Fields(0) <> 0) Then
MsgBox "该学号已经存在,请重新输入", , "错误"
txtid.Text = ""
Exit Sub
End If
sql = "insert into 学生个人信息 values('" & Trim(txtid.Text) & ",'" & Trim(txtclass.Text)
sql = sql & "','" & Trim(txtname.Text) & "','"
If optmale.Value Then
sql = sql & "男"
Else
sql = sql & "女"
End If
sql = sql & "','" & Trim(txtbirth.Text) & "','" & Trim(txtaddress.Text) & "','" & Trim(txtphone.Text) & "')"
conn.Execute (sql)
sql = "insert into 系统用户 values('" & Trim(txtid.Text) & "','" & Trim(txtname.Text) & "','123456',3)"
conn.Execute (sql)
MsgBox "添加成功", , "提示"

求大神解答
复制去Google翻译翻译结果

Answer 1

下面的语句少了一个单引号：
sql = "insert into 学生个人信息 values('" & Trim(txtid.Text) & ",'" & Trim(txtclass.Text)

需要修改为：
sql = "insert into 学生个人信息 values('" & Trim(txtid.Text) & "','" & Trim(txtclass.Text)

Answer 2

注意：
insert into ...... 语句的语法中 VALUES 与后面的左括号之间要空格？