SQL

I'm trying to execute this simple SQL statement and I get this error

Compile Error
Expected: Line Number or Label or statement or end of statement

Here is the sql statement I'm using

Dim strSQL As String

strSQL = "Select * From tblCompany"
"Where cCompName Like '" & cmbCmpName.Text & "'"

DatComp.RecordSource = strSQL
DatComp.Refresh

Not sure if I'm supposed to use the like or not. I left my SQL book at home and I don't work with it every day. So if some can help me out I would appreciate it.

Thank You
Ken Devorak

[ptran]

Kenny,

Put the whole SQL into one line. Otherwise you need to
strSQL = "Select * From tblCompany"
strSQL = "Where cCompName Like '" & cmbCmpName.Text & "'"

[Stevie]

Close but not quite

Either of the following will work.

strSQL = "Select * From tblCompany " 
strSQL = strSQL & "Where cCompName Like '" & cmbCmpName.Text & "'"

or

strSQL = "Select * From tblCompany " & _ 
         "Where cCompName Like '" & cmbCmpName.Text & "'"

Use LIKE if you are trying to find any matches the same or similar to cmbCmpName.

Use = if you only want an exact match.

[JHausmann]

I'd give some thought to imbedding an asterisk in the SQL statement. For example

strSQL = "Select * From tblCompany " & _
"Where cCompName Like '" & trim(cmbCmpName.Text) & "*'"

might be more effective.