以下是个登入界面的Command_Click事件，可总是说在user附近有语法错误，刚学vb实在不懂！~请高手指点一二！~
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
cnn.ConnectionString = conn
cnn.Open
Connect
Dim rst As New ADODB.Recordset
Dim varsource As String, str As String
Set rst.ActiveConnection = cnn
str = Text1.Text
varsource = "select * from user where username='" + str + "'"
rst.Open varsource
If rst!userpwd = Text2.Text Then
MsgBox "»¶Ó­½øÈëѧÉú¹ÜÀíϵͳ" '这里是中文“欢迎进入系统”
Else
try_time = try_time + 1
If try_time <= 3 Then
MsgBox "ÃÜÂë´íÎó£¬ÇëÖØÐÂÊäÈë" '中文是："密码错误，在输入一次"
Exit Sub
Else
MsgBox "ÄúÒÑ´í3´Î£¬ÏµÍ³½«¹Ø±Õ" '中文是：“已经错3次，系统退出”
End If
End If
End Sub

刚刚得到答案，唉，都是user惹的祸！~
不过还是谢谢各位光临！~

varsource = "select * from 表 where username="& str &""
也要改为
varsource = "select * from 表 where username="& str &""

为什么这么改？

改为
varsource = "select * from 表 where username= '"& str &"'"

楼上正解

username是字符，对字符来说“+”和“&”的意思是一样的，这里的错与这个无关！~
而是因为“user”是关键字，不能直接用的！~
说到这，想必您也知道正确答案了！~