太新的手求助！VB6+access,别人的登陆代码，运行时出错。

access数据库：hy.mdb
表名：sysname  字段1：name 字段2：pass 字段3：quan 全是文本型
在坛子里找到的别人写的图书管理系统，我照抄下来，运行登陆窗口里提示错误：from 子句语法错误
就是这句： rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic 被标成黄色
我实在看不明白，请各位老师赐教！

已经配置了本机的ODBC数据源
在工程－－引用下--选中microsoft ActiveX Data Objects2.0 Library
添加了一个模块
Module1代码如下：
Public conn As New ADODB.Connection  '标记连接对象
Public userID As String              ' 标记当前用户ID
Public find As Boolean               ' 标记查询
Public sqlfind As String             '查询语句
Public rs_data1 As New ADODB.Recordset
Public findok As Boolean
Public frmdata As Boolean
Public Const keyenter = 13           ' enter键的ASCII码


form代码如下：

Private Sub Command1_Click()

Dim sql As String
Dim rs_login As New ADODB.Recordset
If txtuser.Text = "" Then ' 判断输入的用户名是否为空
  MsgBox "请输入用户名", vbOKOnly + vbExclamation, ""
  txtuser.SetFocus
Else
  sql = "select * from sysname where name=" & txtuser.Text & ""
  rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic     －－－点调试后，这句标成黄色了。
    If rs_login.EOF = True Then
       MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
       txtuser.SetFocus
    Else
      If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then
         userID = txtuser.Text
         userpow = rs_login.Fields(2)
         Unload Me
         main.Show
      Else
         MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
         txtpwd.SetFocus
      End If
   End If
End If
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
Exit Sub
End Sub

Private Sub Form_Load()
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
"data source=d:\xiehui\hy.mdb"
conn.Open connectionstring
cnt = 0
End Sub

屏幕截图怎样才能帖上来呀？

[ 本帖最后由 zzq70 于 2012-12-7 11:42 编辑 ]