急急急！VB运行后出现编译错误，必要参数！请高手指教！

Private Sub Command1_Click(Index As Integer)
'增加一条记录
Dim strsql As String
Dim adors As New Recordset
Set adors.ActiveConnection = ADOcn
strsql = "select * from 学生表 where 学号=" + Text1 + ""
 adors.Open strsql
 If adors.BOF Then
    strsql = "insert into 学生表 (学号,姓名,籍贯)"
    strsql = strsql + "values(" + Text1 + "" + Text2 + "" + Text3 + ")"
    ADOcn.Execute strsql
Else
     MsgBox "该学号已经存在，不能再新增！", vbGritical + vbOKOnly
'关闭
Unload Me
End Sub

Private Sub Command2_Click(Index As Integer)
Unload Me
End Sub
--------------------编程问答-------------------- strsql = strsql & " values(" & Text1 & "," & Text2 & "," & Text3 & ")"
--------------------编程问答-------------------- strsql=" insert into 表名(字符型字段,数值型字段) values('"& 字符型变量 &"',"& 数值型变量 &")"
--------------------编程问答-------------------- 大侠们！非常感谢！刚才那个问题解决了！不过又出现个问题运行后黄色箭头指向adors.Open strsql，出现错误说第一行：' ='附近有语法错误！不好意思我是新手！ --------------------编程问答-------------------- 如果学号是字符型，则：
strsql = "select * from 学生表 where 学号='" & Text1.text & "'"
--------------------编程问答-------------------- 问题解决结贴咯~~~

第一行：' ='附近有语法错误！

见楼上,或着用[学号]=XXX

中文字段最好用中括号括下.

这结个都小问题,自己调调就懂了咯~~~ --------------------编程问答-------------------- 还是不行啊！依旧是上面的那个问题
--------------------编程问答-------------------- debug.print strsql
ADOcn.Execute strsql

看看得到的=号后是不是没字符?

调试要善用 debug 或着 msgbox  或着自己写个 logwrite 类

VB 很傻咯,经常一点小问题,你要搞大半天.
360 更傻咯,没用API,没用什么特别奇怪的功能,它都能报毒 --------------------编程问答-------------------- "与'符号位置错了
strsql = "select * from 学生表 where [学号]= '" & Text1 & "'"

补充：VB ,  网络编程