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是窗体中文本框控件的名字。

求高手解答，非常感谢！