Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnDelete.Click
        Dim zeile As Integer = Me.dgKfzDatenbank.CurrentRowIndex
        Dim delID As Integer = Me.dgKfzDatenbank.Item(zeile, 0)
 
        Me.daKfzDatenbank.DeleteCommand.Parameters("aID").Value = delID
        Try
            Me.OleDbConnection1.Open()
            Me.daKfzDatenbank.DeleteCommand.ExecuteNonQuery()
            Me.OleDbConnection1.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        Me.DsKfzDatenbank.Clear()
        Me.daKfzDatenbank.Fill(Me.DsKfzDatenbank)
 
    End Sub

Private Sub dgKfzDatenbank_CurrentCellChanged(ByVal sender As Object, ByVal e _
  As System.EventArgs) Handles dgKfzDatenbank.CurrentCellChanged
        Dim zeile As Integer = Me.dgKfzDatenbank.CurrentRowIndex
        Me.dgKfzDatenbank.Select(zeile)
        Dim aktuelleID As String = Me.dgKfzDatenbank.Item(zeile, 0)
 
        Me.txtMarke.Text = Me.dgKfzDatenbank.Item(zeile, 1)
        Me.txtType.Text = Me.dgKfzDatenbank.Item(zeile, 2)
        usw...
 
        Dim sString As String = "select * from tabKFZDatenbank where aID = " & _
          aktuelleID
        Me.daKfzDatenbank.SelectCommand.CommandText = sString
 
        'Me.DsKfzDatenbank.Clear() (auskommentiert, da sonst die Fehlermeldung 
        ' "Index außerhalb des Arraybereiches" kommt - vielleicht liegts ja 
        ' daran)
        Me.daKfzDatenbank.Fill(Me.DsKfzDatenbank)
 
    End Sub