vba 连接access数据库，rst.open那句出现问题，提示至少一个参数没有被指定值

Private Sub Command6_Click()

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=microsoft.ace.oledb.12.0;persist security info=false;data source=f:\login.accdb;"
conn.Open

Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

rst.Open "select * from login where name=' " & username.Value & " '", CurrentProject.Connection  

End Sub

username是窗体中文本框控件的名字。

求高手解答，非常感谢！

CurrentProject.Connection 和conn是什么关系？你前面打开了conn，为什么rst.open不直接用conn

解决了，非常感谢。楼上一针见血！！！！！

rst.Open "select * from login where name=' " & username.Value & " '", CurrentProject.Connection, 1, 1