Code:
Dim sTextboxValue As String
Dim sSQL as string


sTextboxValue = TextBox1.Text

sSQL = "SELECT * FROM [yourtable] WHERE [yourField] = ' " & sTextboxValue & " ';"