建有一MDB数据库，只有一表userload  字段 id username password userdirpath
建表时的代码如下（运行正常）
            tbl.Columns.Append("ID", ADOX.DataTypeEnum.adInteger, 5)
            tbl.Columns.Append("username", ADOX.DataTypeEnum.adVarWChar, 10)
            tbl.Columns.Append("password", ADOX.DataTypeEnum.adVarWChar, 20)
            tbl.Columns.Append("userdirpath", ADOX.DataTypeEnum.adVarWChar, 200)
            cat.Tables.Append(tbl)

在编写注册窗体的代码中出现错误，而且百思不得其解，代码如下
If TextBox2.Text = TextBox3.Text Then
            username = TextBox1.Text
            password = TextBox2.Text
            userdirpath = Application.StartupPath & "\" & username & "\"
            mainname = Application.StartupPath & "\main.mdb"

            Conn.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mainname & ";Jet OLEDB:Database Password=chunhua_2008")
            sql = "select * from userload where username=" & username
            [font color=#0000FF]Rs.Open(sql, Conn, 1, 1, 3)
[/font]
最后一行运行错误：参数类型不正确，或不在可接受的范围之内，或与其他参数冲突。
我直接写：rs.source="select username from userload where username=" & username   都会出现同样错误
急等！