Private Sub Combo1_Change()
    Combo1.AddItem "Album"
    Combo1.AddItem "Sampler"
    Combo1.AddItem "Soundtrack"
    Combo1.AddItem "Singels"
    Combo1.AddItem "MP3-Album"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  Screen.MousePointer = vbDefault
End Sub
 
Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As _
  String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As _
  String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
  'Hier können Sie Ihre Fehlerbehandlungsroutine einfügen
  'Wenn Sie Fehler ignorieren möchten, kommentieren Sie die nächste Zeile aus
  'Wenn Sie die Fehler auffangen möchten, fügen Sie an dieser Stelle Code ein, 
  ' um Fehler zu behandeln
  MsgBox "Data error event hit err:" & Description
End Sub
 
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, _
  ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal _
  pRecordset As ADODB.Recordset)
  'Hierdurch wird die aktuelle Datensatzposition für diese Datensatzgruppe 
  ' angezeigt
  datPrimaryRS.Caption = "Record: " & CStr( _
    datPrimaryRS.Recordset.AbsolutePosition)
End Sub
 
Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As _
  ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As _
  ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  'Hier können Sie Code zur Überprüfung einfügen
  'Dieses Ereignis wird aufgerufen, wenn die folgenden Aktionen eintreten
  Dim bCancel As Boolean
 
  Select Case adReason
  Case adRsnAddNew
  Case adRsnClose
  Case adRsnDelete
  Case adRsnFirstChange
  Case adRsnMove
  Case adRsnRequery
  Case adRsnResynch
  Case adRsnUndoAddNew
  Case adRsnUndoDelete
  Case adRsnUndoUpdate
  Case adRsnUpdate
  End Select
 
  If bCancel Then adStatus = adStatusCancel
End Sub
 
Private Sub cmdAdd_Click()
  On Error GoTo AddErr
  datPrimaryRS.Recordset.AddNew
 
  Exit Sub
AddErr:
  MsgBox Err.Description
End Sub
 
Private Sub cmdRefresh_Click()
  'Dies wird nur für Mehrbenutzeranwendungen benötigt
  On Error GoTo RefreshErr
  datPrimaryRS.Refresh
  Exit Sub
RefreshErr:
  MsgBox Err.Description
End Sub
 
Private Sub cmdUpdate_Click()
  On Error GoTo UpdateErr
 
  datPrimaryRS.Recordset.UpdateBatch adAffectAll
  Exit Sub
UpdateErr:
  MsgBox Err.Description
End Sub
 
Private Sub cmdClose_Click()
  Unload Me
End Sub