drv = dv.AddNew()
                Dim f2 As New form2
                f2.showAdresse(drv)
                f2.Dispose()
 
                'Datenbank öffnen und neue Daten reinschreiben
                conn.Open()
                Dim insSQL As String = "INSERT INTO Personen (Vorname," & _
                  "Nachname) VALUES (@p1, @p2)"
                Dim cmd As New OleDbCommand(insSQL, conn)
                cmd.Parameters.Add("@p1", OleDbType.VarChar, 10, "Vorname")
                cmd.Parameters.Add("@p2", OleDbType.VarChar, 10, "Nachname")
                da.InsertCommand = cmd
                Dim rw As DataRow = dt.NewRow
                rw("Vorname") = Vorname
 
                da.Update(dt)

  'Zeile im Data Grid löschen
                If dv.Count > 0 Then dv(DataGrid1.CurrentRowIndex).Delete()
 
                'Zeile aus Datenbank löschen
                Dim delSQL As String = "DELETE FROM Personen WHERE [Nachname]" & _
                  "=@p1"
                Dim cmd As New OleDbCommand(delSQL, conn)
                Dim p1 As OleDbParameter = cmd.Parameters.Add("@p1", _
                  OleDbType.BigInt, 10, "Nachname")
                p1.SourceVersion = DataRowVersion.Original
                da.DeleteCommand = cmd
                Dim dr As DataRow
                For Each dr In dt.Rows
                    If dr.Item("Nachname") = dv(DataGrid1.Text) Then Beep() : _
                      dr.Delete()
                                                                   'Hmm so 
                                                                   ' funkt es 
                                                                   ' net! 
                                                                   'Hier 
                                                                   ' bräuchte 
                                                                   ' ich die 
                                                                   ' Aktuelle 
                                                                   ' ausgewählt
                                                                   ' e Zeile   
                                                                   'im Data 
                                                                   ' Grid (bzw 
                                                                   ' den Inhalt) 
                Next
                da.Update(dt)