Fejlmeddelelse:Object variable or with block variable not set

Jeg forstår ikke den fejlmeddelelse jeg modtager når jeg forsøger at køre nedenstående program. Hvad har jeg lavet forkert eller undladt?
Private Sub Form_Paint()
On Error Resume Next
Data1.Recordset.AddNew
End Sub

Private Sub Text5_Change()
Dim maxl As Integer
maxl = 255
Text5.MaxLength = maxl
End Sub

Private Sub Text8_Change()
Dim maxl As Integer
maxl = 255
Text8.MaxLength = maxl

End Sub

Private Sub Command2_Click()
On Error Resume Next
Dim Efternavn As String
Dim msg As String
Dim svar As Integer
Efternavn = Data1.Recordset("Efternavn")
msg = "Slet: " & Chr$(13)
msg = msg & Efternavn & Chr$(13)
msg = msg & "Er du helt sikker?"
svar = MsgBox(msg, vbOKCancel, "Slet forfatter")
If svar = vbOK Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End If
End Sub


Private Sub Command3_Click()
Dim Soegforfatter As String
Soegforfatter = InputBox("Skriv navnet på den forfatter, du søger")
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
    If Data1.Recordset("Efternavn") = Soegforfatter Then
        Exit Sub
    End If
    Data1.Recordset.MoveNext
Loop
MsgBox "Forfatteren findes ikke i databasen"
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
Text1.SetFocus
End Sub

Private Sub Command4_Click()
Dim Soegtitel As String
Soegtitel = InputBox("Skriv navnet på den titel, du søger")
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
    If Data1.Recordset("Titel") = Soegtitel Then
        Exit Sub
    End If
    Data1.Recordset.MoveNext
Loop
MsgBox "Titlen findes ikke i databasen"

End Sub