Dim Tag As String * 3
  If FileName = "" Then Exit Function
  If FileName = "*.mp3" Then Exit Function
  Open FileName For Binary As #1
  Get #1, FileLen(FileName) - 127, Tag
  If Tag = "TAG" Then
    Get #1, FileLen(FileName) - 124, id3Info
  Else
    MsgBox "Gibts net", , "Information"
  End If
  Close #1

Dim Catalog As Object
        Set Catalog = CreateObject("ADOX.Catalog")
        Catalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          CommonDialogCreateData.FileName & ".mdb"
 
    Set objDBCon = CreateObject("ADODB.Connection")
    objDBCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & CommonDialogCreateData.FileName & ".mdb" '& _
    '"User ID=admin;" & _
    '"Password=;"
 
    Set objDBRec = objDBCon.Execute("Create Table" & _
      "Titel_Artist_Album_Jahr_Genre_Pfad" & _
    "(" & _
        "Titel char(60), " & _
        "Artist char(40)," & _
    ");")
    objDBCon.Close
    Set objDBCon = Nothing
    Set objDBRec = Nothing
    DataAudio.DatabaseName = " & CommonDialogCreateData.FileName & "
    Set DataGrid1.DataSource = DataAudio
    DataAudio.RecordSource = "Titel_Artist_Album_Jahr_Genre_Pfad"
End Sub