Hello, I'am rather new to VB6 programming. When I run my program, i get runtime error 91: Objevt Variable or with block variable not set.

When debugging the program stops at the line in Bold
when I delete this line the program works perfect.

If you need more info, let me know.


[code]
Private Sub dgAuteurs_Click()
    adoTitels.Recordset.Filter = "auteur_id = '" & adoAuteur.Recordset.Fields("auteur_id").Value & "'"

adoTitelsBezit.Recordset.Filter = "auteur_id = '" & adoAuteur.Recordset.Fields("auteur_id").Value & "'"

    dgTitels.Visible = True
    txtTeller.Visible = True
    lblAantalTitels.Visible = True
    imgCover.Visible = False
    'Tellen aantal titels
    Dim tel As Integer
    tel = 0
    adoTitels.Recordset.MoveFirst
    While Not adoTitels.Recordset.EOF
        tel = tel + 1
        adoTitels.Recordset.MoveNext
    Wend
    txtTeller.Text = tel
    If tel = 1 Then lblAantalTitels.Caption = "Titel" Else lblAantalTitels.Caption = "Titels"
        adoTitels.Recordset.MoveFirst

End Sub
[end code]

Well... the obvious solution is to DELETE THAT LINE. If the program works perfect without it, then it is superflous and you can delete it.

Of course, we will deal with the potentiallity that you actually need this line.

The reason you are getting that error is that the either the adoTitelsBezit object has not yet been instantiated, or the Recordset object that is apparently a property of the adoTitelsBezit object hasn't been instantiated. Either way, you get the error 91 when you are working with variable that references an object that "is nothing" - which essentially means it hasn't been created yet.

Woody Z http://www.learntoprogramnow.com