Dim p As String = Application.StartupPath
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
        Try
            conn.Open()
 
            'Im DataSet einen neuen Datensatz hinzufügen
            'Der Tabelle eine neue DataRow hinzufügen
            Dim row As DataRow = ds.Tables("t_location").NewRow '< ----------X
 
            'Werte übergeben
            row("Land") = land
            row("Stadt") = stadt
            row("ID") = id
 
            ds.Tables("t_location").Rows.Add(row)
 
            'Datenbank updaten
            da.Update(ds, "t_location")
 
            'MessageBox.Show("Neuer Datensatz  " & strEintrag & "" & _
              "hinzugefügt!", _
            '            "Neuer Datensatz", MessageBoxButtons.OK, 
            ' MessageBoxIcon.Information)
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", _
              MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Exclamation)
        Finally
            conn.Close()
        End Try