急急急！！！高手请进！vb中删除sql server中表的记录出了问题！！！

Question

Private Sub Command1_Click()
     Set db = New adodb.Connection
     Set rs = New adodb.Recordset
     db.ConnectionString = "driver={SQL Server};server=HIT-  PHILYOUNG;database=wangluo;Persist Security Info=False;User ID=sa;Password=phil0201;"
     db.Open
     rs.Open "select admin_name,admin_pwd from tbladmin where admin_name='" & Text1.Text & "'", db, adOpenStatic, adLockReadOnly
     If rs.EOF = True And rs.BOF = True Then
     MsgBox "没有这个管理员账户！请输入正确的管理员账户！！", , "提示"
    rs.Close
    Text1.Text = ""
    Text1.SetFocus
    ElseIf Text1.Text = "admin" Then
    MsgBox "超级管理员禁止删除！", vbExclamation, "提示"
        '删除
    Else
    Dim strsql As String
    strsql = "delete  from tbladmin where admin_name=" & Text1.Text
        '表示要在表中删除的行的对应admin_name为text1.text中显示的内容
    db.Execute (strsql)
    db.Close
    MsgBox "此管理员已经被删除！"
    Unload Me
    End If
    End Sub

Answer 1

strsql = "delete  from tbladmin where admin_name='" & Text1.Text & "'"

Answer 2

strsql错了，admin_name是字符串吧，应该加'',如zw_yu所写

Answer 3

strsql = "delete  from tbladmin where admin_name='" & Text1.Text & "'"   db.Execute (strsql)