Option Explicit
 
Private rs_DG As Recordset
'
 
Private Sub Form_Load()
 
   Set rs_DG = New Recordset
 
   With rs_DG
 
      .Fields.Append "WB", adInteger
      .Fields.Append "Name", adBSTR
      .Fields.Append "Punkte", adInteger
 
      .open
 
      .AddNew
 
      .Fields("WB") = 1
      .Fields("Name") = "TippTopp"
      .Fields("Punkte") = 10
      .Update
 
 
      .Sort = " WB "
      .Sort = " Name "
 
   End With
 
End Sub