objectvariable of blokvariable is niet ingesteld

[epetzen]

Ik heb een VB code om record velden te exporteren naar Exel

Echter geeft hij de foutmelding als hieronder:

objectvariable of blokvariable is niet ingesteld

Hierbij de VB code:

Private Sub Knop60_Click()
On Error GoTo err_knop60_Click
Dim db As Database
Dim rst As Recordset
Dim XLObj As Excel.Application
Dim strSql As String
Dim rij As Integer, kolom As Integer
Dim projectfilter As String

projectfilter = [Project]
strSql = ("SELECT * FROM query_PO2_Klein")
Set db = CurrentDb


If rst.RecordCount = 0 Then
MsgBox "Geen projecten gevonden"
Exit Sub
End If

Set XLObj = CreateObject("excel.application")
XLObj.workbooks.Open "C:\export.xls"

XLObj.Visible = True

XLObj.range("A1").select

rij = 0
kolom = 0
rijteller = 0
XLObj.activecell.offset(rij, kolom) = rst!Site_type
XLObj.activecell.offset(rij, kolom) = rst!OpstelpuntId

Do While Not rst.EOF

rij = rij + 1
rst.MoveNext
Loop

Set XLObj = Nothing
exit_knop60_Click:
Exit Sub

err_knop60_Click:
MsgBox Err.Description
Resume exit_knop60_Click
End Sub


Kan iemand mij helpen dit probleem op te lossen,

Thanks,

 

[sesam]

Geen recordset

Wat ik zo snel zie is dat je een recordset aanspreekt, rst.recordcount, zonder dat deze ingesteld is. Je moet deze recordset eerst openen, voordat je de records kunt tellen.