IfText2.Text=Text3.TextThenSetadoRs=adoCon.Execute(“insertintoTableuservalues(“&Text6&”,“&Text1&”,“&Text2&”,“&Check1&”,“&Check2&”)”）MsgBox“注册成功!”,48,“用户管理系统”Text1.Text=""Text2.

Question

If Text2.Text=Text3.Text Then
Set adoRs=adoCon.Execute(“insert into Table_user values(“& Text6 &”,“& Text1 &”,
“& Text2 &”,“& Check1 &”,“& Check2 &”)”）
MsgBox“注册成功!”,48,“用户管理系统”
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Frm_YHGL.Hide
这是实现插入功能的,&是取地址,“& Check1
Call main
Adodc1.RecordSource=”select * from Table_user”
Adodc1.Refresh
If Adodc1.Recordset.RecordCount>0 Then
Adodc1.Recordset.MoveLast
Text6.Text=Val(Adodc1.Recordset.Fields(“ID”))+1 还要这句不懂
Else
Text6.Text=1 ,

Answer 1

Execute(“insert into Table_user values(“& Text6 &”,“& Text1 &”,
“& Text2 &”,“& Check1 &”,“& Check2 &”)”）
你得分开来看,并不是你看到的"& Check1 &” ,正确的应该是"," | & Check1 & | "," .
其中“&”并不是取地址,而是字符串连接符,是字符“,” 与 Check1 与 “,” 三个字符串的连接!仔细看看SQL语组成结构吧.
If Adodc1.Recordset.RecordCount>0 Then ：这句是判断当前数据库中记录总数
Adodc1.Recordset.MoveLast '：这句是将当前游标移动到最后一条记录
Text6.Text=Val(Adodc1.Recordset.Fields(“ID”))+1 还要这句不懂：这句是将最后一条记录的ID值加1后放到Text6中
Else
Text6.Text=1 ,这句是前面的判断条件不成立（即数据库当前无记录）时给Text6赋值"1” .