Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As _
  Long) As Long 
Private RSMusik As Recordset 
Private db As Database 
 
Private Sub Command1_Click() 
 
Dim db As Database, rs As Recordset 
Set db = DBEngine.OpenDatabase(App.Path & "\Musik.mdb ", True) 
Set rs = db.OpenRecordset("Musik", dbOpenDynaset) 
Text1.SetFocus 
If Text1.Text = "" Then 
MsgBox "Geben Sie einen Album ein!", vbOKOnly + vbInformation, Ttl & " -" & _
  "Hinweis" 
Exit Sub 
End If 
If Text2.Text = "" Then 
MsgBox "Geben Sie ein Interpret ein !", vbOKOnly + vbInformation, Ttl & " -" & _
  "Hinweis" 
Exit Sub 
End If 
If Text3.Text = "" Then 
MsgBox "Geben Sie die Anzahl der CDs ein !  Hinweis es können nur Zahlen und" & _
  "keine Buchstaben eingegeben werden !", vbOKOnly + vbInformation, Ttl & " -" & _
  "Hinweis" 
Exit Sub 
End If 
If Text4.Text = "" Then 
MsgBox "Geben Sie die Titel ein!", vbOKOnly + vbInformation, Ttl & " - Hinweis" 
Exit Sub 
End If 
rs.AddNew 
rs!Album = Text1.Text ' achten Sie auf "!", nicht "." 
rs!Interpret = Text2.Text 
rs!CDs = Text3.Text 
rs!Titel = Text4.Text 
rs!Bildpfad = Text7.Text 
If Text7.Text = "" Then 
MsgBox "Geben Sie ein Coverbild ein !  Achtung ! Das Bild muß im Ordner Meine" & _
  "Musik/Cover liegen", vbOKOnly + vbInformation, Ttl & " - Hinweis" 
Exit Sub 
End If 
rs.Update 
rs.Close 
End Sub 
Private Sub Text3_KeyPress(KeyAscii As Integer) 
Select Case KeyAscii 
Case 8, 48 To 57 
Case Else 
KeyAscii = 0 
End Select 
End Sub 
 
Private Sub Command2_Click() 
   Unload Me 
End Sub 
 
Private Sub Command3_Click() 
     ' CancelError ist True 
On Error GoTo dbErrHandler ' Sprung im Fehlerfall 
     ' Festlegen, was im Textfeld 
     ' Dateitypen erscheint 
    cdbFile.Filter = "Alle Bilddateien" & Chr(0) & _
      "*.bmp;*.gif;*.jpg;*.wmf;*.ico;*.emf" & Chr(0) & "Alle Dateien (*.*)" & _
      Chr(0) & "*.*" 
     ' Standardfilter vorgeben 
    cdbFile.FilterIndex = 1 
    cdbFile.DialogTitle = "Open" 
     ' Dialogfeld Öffnen anzeigen 
    cdbFile.ShowOpen 
    Text7.Text = cdbFile.FileName 
    Dim temp As String, relativerPfad As String 
    temp = Text7.Text 
    relativerPfad = Replace(temp, App.Path, "") 
    Text7.Text = relativerPfad 
Exit Sub ' 
dbErrHandler: 
     ' Benutzer hat auf Abbrechen geklickt 
Exit Sub ' Keine Datei öffnen 
End Sub 
 
 
Private Sub Command4_Click() 
 
'Reset 
Unload Me 
Load MusikBearbeiten 
For i = 0 To 2 
Text1.Text = "" 
Next i 
 
MusikBearbeiten.Show 
Text1.SetFocus 
Command1.Enabled = True 
 
End Sub