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

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