直接这样写不就行了:
sqlStr="select * from tbEmp where EmpID = " & Text1.Text
或(EmpID是字符型时):
sqlStr="select * from tbEmp where EmpID = '" & Text1.Text & "'"例子(以Access数据库为例):
Dim conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim SQLStr As String, SQLSelect As String
SQLStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\abc.mdb;"
Set conn = New ADODB.Connection
conn.ConnectionString = SQLStr
conn.Open
SQLSelect = "select H_ID from hycao where H_ID = " & Text1.Text
Set Rs = conn.Execute(SQLSelect, 1, adCmdText)