关于一个窗体控件上的SQL执行问题!

nofuture

Private Sub cmd_login_Click()

Dim rst1 As New ADODB.Recordset
Dim strSQL As String

'text_username是一个文本框控件.
strSQL = "select * from usysuser where name = " & Me.Text_username.Value
rst1.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'test是一个测试文本框控件.

test.Value = rst1(1)

rst1.Close
Set rst1 = Nothing
End Sub

fan0217

你的问题是什么啊？

nofuture

呵呵,我自己已经解决了~!谢谢老兄的关注!