access database /VB6

[alobi]

I am trying to seach a table for company name and if the name if the name is not in the tbl I want be able to let the client know so they can enter the name on text box. but each time I run the programm I get the following information. Invalid statement. expected: delete, insert, procedure, select or update.

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

thank you for your time

[HiTechCoach]

I am trying to seach a table for company name and if the name if the name is not in the tbl I want be able to let the client know so they can enter the name on text box. but each time I run the programm I get the following information. Invalid statement. expected: delete, insert, procedure, select or update.

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

thank you for your time

Assuming that StrSQL is a variable that holds the SQL statement

Try this:

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