Private Sub cmdNeu_Click()
Dim dbmp3db As Database
Dim sqlneu As String
Dim rsneu As Recordset
 
Dim Titel As String
Dim Interpret As String
Dim Album As String
Dim Tracklänge As Currency
Dim VÖJahr As Integer
Dim Genre As String
Dim Bewertung As Byte
Dim CDNr As Integer
 
Titel = InputBox("Geben Sie die den Titel ein")
Interpret = InputBox("Geben Sie die den Interpreten ein")
Album = InputBox("Geben Sie die das Album ein")
Tracklänge = Val(InputBox("Geben Sie die Tracklänge (z.B. 3,47) ein"))
VÖJahr = Val(InputBox("Geben Sie das Veröffentlichungs-Jahr (z.B. 2002) ein"))
Genre = InputBox("Geben Sie das Genre ein")
Bewertung = Val(InputBox("Geben Sie eine Note zwischen 1 und 6 ein"))
CDNr = Val(InputBox("Geben Sie die CD-Nr. ein, auf die Lied gebrannt wurde bzw." & _
  "gebrannt werden soll"))
 
Set dbmp3db = OpenDatabase("C:\Eigene" & _
  "Dateien\Dokumente\Hessenkolleg\Info\Datenbank-Projekt\MP3DB-18-06-03\mp3db." & _
  "db")
sqlneu = "Select * from tabelle1 order by titel"
Set rsneu = dbmp3db.OpenRecordset(sqlneu)
 
  With rsneu
    .AddNew
    .Fields("Titel") = Titel
    .Fields("Interpret") = Interpret
    .Fields("Album") = Album
    .Fields("Tracklänge") = Tracklänge
    .Fields("VÖJahr") = VÖJahr
    .Fields("Genre") = Genre
    .Fields("Bewertung") = Bewertung
    .Fields("CDNr") = CDNr
    .Update
  End With
 
dbmp3db.Close
 
MsgBox "Der Eintrag wurde in die Datenbank übernommen. Bitte klicken Sie" & _
  "AKTUALISIEREN um eine aktuelle Ansicht zu erhalten."
 
End Sub