Searching the database for numbers

[nkechifesie]

I have a database that some coulmns containg numbers and I need to search using the value inputted in a text box. Am unable to do it with this code

If Combo1.Text = "Result" Then
    RSSearchS.Open " SELECT * FROM follow WHERE Result = '" & Text2.Text _
& "' ORDER BY Workorder", CnWorkOrder, adOpenDynamic, adLockOptimistic
 

where text2.text is the text box that contains the number i want to search for in the database.
Please could you help me out.
Thank you.

[sashi]

I have a database that some coulmns containg numbers and I need to search using the value inputted in a text box. Am unable to do it with this code

If Combo1.Text = "Result" Then
    RSSearchS.Open " SELECT * FROM follow WHERE Result = '" & Text2.Text _
& "' ORDER BY Workorder", CnWorkOrder, adOpenDynamic, adLockOptimistic
 

where text2.text is the text box that contains the number i want to search for in the database.
Please could you help me out.
Thank you.

Hi there,

Take a look at below modification, hope it helps. Good luck & Take care.

Dim TMPSQL As String
 
TMPSQL = ""
TMPSQL = "SELECT * FROM follow " _
              & "WHERE Result LIKE '" & Trim(Text2.Text) & "'" _
              & "ORDER BY Workorder ASC;"
 
If Combo1.Text = "Result" Then
    RSSearchS.Open TMPSQL, CnWorkOrder, adOpenDynamic, adLockOptimistic
EndIf
 

[Killer42]

If the field type is numeric, then don't use quotes around the search value. For example...

If Combo1.Text = "Result" Then
  RSSearchS.Open "SELECT * FROM follow WHERE Result = " & Text2.Text _
  & " ORDER BY Workorder", CnWorkOrder, adOpenDynamic, adLockOptimistic

[nkechifesie]

[RESOLVED]
Thank you very much.I removed the single quote and it works very well.