Cd database

Hej jeg har købt bogen "start på visual basic" og er kommet til jeg skal lave en cd database jeg har fulgt det hele efter nogen men det vil ikke virke :S

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

Private Sub Command2_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End Sub

Private Sub Command3_Click()
Dim soegetitel As String
soegetitel = InputBox("Cd navn?")
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
If dtat1.Recordset("Titel") = soegetitel Then
Exit Sub
End If
Data1.Recordset.MoveNext
Loop
MsgBox "Cd'en kunne ikke findes"
End Sub

håber i kan forstår det der :)