recordset error Please HELP!!!

[mk2lee1]

I now have changed my code this this
but I get type mismatch error at

Set rst = db.OpenRecordset(SQL)

Any idea?
==========================================
Private Sub Form_Load()

Dim db As Database
Dim rst As Recordset
Dim i As Integer

Dim SQL As String
SQL = "SELECT [school].[schoolName], [Participation].[ParticipationID], [Participation].[TestDAte]" & _
"FROM school RIGHT JOIN Participation ON [Participation].[SchoolID]=[School].[SchooliD]" & _
&quot;WHERE ([Participation].[testDate]-date()<=30 And [Participation].[testDate]-date()>0)&quot;

Set db = CurrentDb
Set rst = db.OpenRecordset(SQL)

If rst.RecordCount <> 0 Then
rst.MoveLast
rst.MoveFirst

For i = 0 To rst.RecordCount
variable = rst.Fields(i)
rst.MoveNext
Next i
End If

 

[cbsm]

Looks like you are in Access ??
You might need to add the reference : Microsoft DAO 3.6 object library for example (Tools/References) to your project.

 

[mk2lee1]

how do I add that? can you help me? thanks

 

[mk2lee1]

I added it.. but I still have same error message..

 

[CCLINT]

Dim db As DAO.Database
Dim rst As DAO.Recordset