access database /VB6

[alobi]

I am using the following code to search a table for company name and notify the client if there is no Campany name, so he can enter the company name. but I keep getting an error message. Invalid statement, expected delete insert, procedure of update. This line of code gets highlighted

rs.Open "StrSQL", ad, adOpenDynamic, adLockOptimistic, adCmdText

HERE ARE MY CODE:
StrSQL = "select T.CompanyName from TripLogTbl" & _
"where T.CampanyName IS NOT NULL"
rs.Open "StrSQL", ad, adOpenDynamic, adLockOptimistic, adCmdText
If Not rs.BOF And Not rs.EOF Then
txtCompanyName.Text = rs.Fields("CompanyName").Value
End If

[HiTechCoach]

I am using the following code to search a table for company name and notify the client if there is no Campany name, so he can enter the company name. but I keep getting an error message. Invalid statement, expected delete insert, procedure of update. This line of code gets highlighted

rs.Open "StrSQL", ad, adOpenDynamic, adLockOptimistic, adCmdText

HERE ARE MY CODE:
StrSQL = "select T.CompanyName from TripLogTbl" & _
"where T.CampanyName IS NOT NULL"
rs.Open "StrSQL", ad, adOpenDynamic, adLockOptimistic, adCmdText
If Not rs.BOF And Not rs.EOF Then
txtCompanyName.Text = rs.Fields("CompanyName").Value
End If

Try this:

rs.Open StrSQL, ad, adOpenDynamic, adLockOptimistic, adCmdText

[alobi]

Thanks HiTechCoach, the change took care of my problem. Problem resolved.

[HiTechCoach]

Thanks HiTechCoach, the change took care of my problem. Problem resolved.

You're welcome!

Glad I could assist.