I've been programming in Access for a number of years using DAO, I must say ADO connections are getting the best of me. this code did work, now it is not. Please help, I don't know what I'm doing wrong.
Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection
Dim rs As New ADODB.Recordset
rs.ActiveConnection = cnn1
rs.CursorType = adOpenForwardOnly
rs.LockType = adLockOptimistic
Dim rsResults As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT Immunization.*" & _
" FROM Immunization" & _
" ORDER BY Immunization.ComboField, Immunization.VACCINE_ID, Immunization.VACCINATION_DATE"
rs.Open strSQL
This worked until I added SQL to delete a different records of a different table prior to the above code. I've commented the delete out. No luck.
I'm receiving an error on rs.Open strSQL No value given to one or more parameters.
I've also tried:
rs.Open strSQL, cnn1, adOpenForwardOnly, adLockOptimistic, adCmdText
I'm stuck, please what am I doing wrong.
thanks in advance, Jeanne6452
