Private Sub AufbauGrid1()
    With sevGrid1
        .LockUpdate True
        .DataMode = Mode_List
        .ColumnAdd "del", "Del", 500, , , TYPE_CHECKBOX
        .ColumnAdd "adressnr", "AdressNr", 1100
        .ColumnAdd "vorname", "Vorname", 2500
        .ColumnAdd "name", "Name", 2500
        .ColumnAdd "strasse", "Strasse", 2500
        .ColumnAdd "plz", "Plz", 800
        .ColumnAdd "ort", "Ort", 3500
        .ReadColumnWidth "Crosstravel", "sevGrid1", "ColWidths"
 
        aRs_Close
        sSQL = "SELECT AdressNr, Vorname, Nachname, Strasse, PLZ, Ort FROM" & _
          "tbladressen"
        aRs.CursorLocation = adUseClient
        aRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
        aRsOpen = True
        If aRs.RecordCount = 0 Then
           MsgBox "Es sind keine Adressen vorhanden - Abbrechen"
           Exit Sub
       End If
       aRs.MoveFirst
 
       Do While Not aRs.EOF
          sLine = ""
          sLine = "1;" & aRs!AdressNr & ";" & aRs!Vorname & ";" & aRs!Nachname _
            & ";" & aRs!Strasse & ";" & aRs!Plz & ";" & aRs!Ort
          Set oItem = .AddItem(Replace(sLine, ";", vbTab))
          aRs.MoveNext
      Loop
      .AutoSort = True
      .AllowEdit = True
      .LockUpdate False
       nRows = sevGrid1.Rows
       .Refresh
    End With
End Sub
 
 
Private Sub btnLöschen_Click()
    a = 0
    Do While a <= nRows
       With Me
          MsgBox .sevGrid1.Text(a, 0)
          MsgBox .sevGrid1.Text(a, 1)
          MsgBox .sevGrid1.Text(a, 2)
          MsgBox .sevGrid1.Text(a, 3)
          MsgBox .sevGrid1.Text(a, 4)
          MsgBox .sevGrid1.Text(a, 5)
          MsgBox .sevGrid1.Text(a, 6)
       End With
       a = a + 1
    Loop
    MsgBox "Die Adressen wurden gelöscht"
End Sub