VB登陆界面的问题

Question

VB登陆界面连接access数据库db1  表名user 用户名字段username 密码pwd    窗体控件用户名txtuname 密码txtpass
代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sql As String
        Dim connstr As String
        Dim username As String
        Dim pwd As String
        Dim rs As New ADODB.Recordset
        Dim conn As New ADODB.Connection
        conn.Open("provider=Microsoft.Jet.OLEDB.4.0; data source=db1.mdb")        If Trim(txtuname.Text) = "" Then
            MsgBox("用户名不能为空，请重新输入！")
            txtuname.Focus()
        Else
            sql = "select * from user where username =" & txtuname.Text & ""
            conn.Open(connstr)
            rs.Open(sql, conn, 1, 1)
            If rs.EOF = True Then
                MsgBox("没有这个用户,请重输入！", vbOKOnly + vbExclamation, "")
                txtuname.Text = ""
                txtuname.Focus()
            Else
                username = txtuname.Text
                If txtpass.Text <> ("pwd") & "" Then
                    MsgBox("用户密码错误")
                Else
                    rs.Close()
                    conn.Close()
                    Dim i As New Form4
                    i.Show()
                    Me.Hide()
                End If
            End If
        End If
    End Sub
-----------------------提示 conn.Open(connstr)
            rs.Open(sql, conn, 1, 1)  这个地方错,麻烦哪位大侠帮我看下  谢谢！！！！

Answer 1

'user是系统关键字，建议不要当作表名与字段名使用，一定要用那要用方括号括起来
sql = "select * from [user] where username =" & txtuname.Text & "" 

Answer 2

  
conn.Open(connstr) 
这里，connstr没有附值。