高分相送！请高手进来帮忙！

Question

各位大侠：
我做了一个简单的机房刷卡系统，由于我水平有限，我一直在求助于几个高人，在这里再次感谢一下。
我就是用vb窗体操纵数据表，现在我已经会把一些在窗体中输入的数据添加入数据表，具体如下：
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\教学管理.mdb;Persist Security Info=False"
    cn.CursorLocation = adUseClient
    cn.Open
     cn.Execute ("insert into 用户总表(用户名 ,密码) values('" & Text6.Text & "','" & Text7.Text & "')")    cn.Close
    Set cn = Nothing
    Exit Sub
err:
    MsgBox err.Description
    Form2.Visible = False
    
End Sub
现在我添加了一些用户名和密码在表里，可是我现在想如果在vb里操纵，删除用户，请高手给写下源代码。
还有，当用户登陆时，如果表里没有输入的用户名，我就会弹出个框，不让其登陆，窗体我会，请高手给我写下源代码。谢谢，一旦明白，马上送分！

Answer 1

修改用户密码：
cn.Execute "update 用户总表 set 密码＝'" & Text密码.text & "' where 用户名 ='" & Text用户.text & "'"删除用户：
cn.Execute "delete from 用户总表 where 用户名 ='" & Text用户.text & "'"登录验证用户是否存在：
Set Rs = cn.Execute("select * from 用户总表 where 用户名＝'" & Text用户名.Text & "'")
If Rs.EOF Then MsgBox "该用户名不存在"

Answer 2

VBDN(PowerBASIC 中国 http://powerbasic.cn朋友：您好！
我有点问题还得请教您一下：
登录验证用户是否存在：
Set Rs = cn.Execute("select * from 用户总表 where 用户名＝'" & Text用户名.Text & "'")
If Rs.EOF Then MsgBox "该用户名不存在"
您给我的这句语句中，("select * from 用户总表 where 用户名＝'" & Text用户名.Text & "'")这条代码中，后边的用户名是窗体中的文本框名字吗？前边的用户名是数据表中的用户名吗？如果是的话，我运行后，出来一个对话框，显示：语法错误：（操作符丢失）在查询表达式‘用户名＝xxx’中，（xxx是我输入的用户名），请问，是那里出了问题了呢？