myDataRow = myDataTable.NewRow
myDataTable.Rows.Add(myDataRow)

    Public Function AktualisiereTabelle(ByVal Tabellenname As String, ByVal _
      myDataTable As DataTable, _
                                        Optional ByVal Bedingungen As String = _
                                        "") As Boolean
 
        Try
            'Datenadapter mit SQL Anfrage erstellen (Suche alle)
            Dim myDataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM " & _
              Tabellenname, myConnection)
            Dim myDataBuilder As New OleDb.OleDbCommandBuilder(myDataAdapter)
            myDataAdapter.UpdateCommand = myDataBuilder.GetUpdateCommand
            myDataAdapter.Update(myDataTable)
            'Rückgabewert TRUE = Tabelle aktualisiert
            Return True
        Catch ex As Exception
            'Rückgabewert FALSE = aktualisieren fehlgeschlagen
            MsgBox(ex.Message)
            Return False
        End Try
end function