A little help?

[robjones23]

Can anyone tell me why this isn't working?!!

Function Testmodule()

Dim TT As String

TT = "*"



Dim SQLquery As String



Set MyDb = CurrentDb()









SQLquery = "SELECT BizTalk_Import.F1, BizTalk_Import.F2" & _

" FROM BizTalk_Import " & _

" WHERE BizTalk_Import.F1 = " & "TT"



Set MyRs = MyDb.OpenRecordset(SQLquery) <-------- stops here saying it expected "1"



End Function

 

[richary]

" WHERE BizTalk_Import.F1 = " & "TT"

" WHERE BizTalk_Import.F1 Like " & "TT"

 

[Bat17]

" WHERE BizTalk_Import.F1 = Like '" & TT & "'"

Peter

 

[richary]

Ahh, those pesky quote marks...