G
Guest
I'm trying to populate a recordset using a query in Excel VB code as below :-
Dim db As Database
Dim rs1 As Recordset
Dim SQLstr As String
Dim OrigCP As Variant
OrigCP = "AB123"
db = "c:\my.mdb"
SQLstr = "SELECT History.Field2, History.OrigCP FROM History WHERE
History.OrigCP=" & OrigCP
Set rs1 = db.OpenRecordset(SQLstr)
I get an error 3061 (Too few Parameters - Expected 1).
Any ideas? - I've done this lots directly in Access VB OK.
Thanks.
Dim db As Database
Dim rs1 As Recordset
Dim SQLstr As String
Dim OrigCP As Variant
OrigCP = "AB123"
db = "c:\my.mdb"
SQLstr = "SELECT History.Field2, History.OrigCP FROM History WHERE
History.OrigCP=" & OrigCP
Set rs1 = db.OpenRecordset(SQLstr)
I get an error 3061 (Too few Parameters - Expected 1).
Any ideas? - I've done this lots directly in Access VB OK.
Thanks.