Dim ConnString As String = "Provider=Microsoft.JET.OLEDB.4.0;data" & _
          "source=" + LStr_DatenbankName
        Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
        OleDbConn.Open()
        Dim MyDataReader As OleDbDataReader
        Dim MyOleDbCommand As OleDbCommand = New OleDbCommand()
        MyOleDbCommand.Connection = (OleDbConn)
        MyOleDbCommand.CommandText = LStr_SQL$
        MyDataReader = MyOleDbCommand.ExecuteReader
            Do While MyDataReader.Read
                NR = Val((MyDataReader.Item("nr")))
                Daten.FIRMA = (MyDataReader.Item("FIRMA"))
           LOOP

Dim conn As OleDbConnection = New
OleDbConnection(connString)
Dim sqlCmd As String = "INSERT INTO Kunden Values ({" &
System.Guid.NewGuid().ToString() & "}, " & _
"'Peter', 'Riesebehl', " & _
"'Baumstrasse 7', 20097, 'Hamburg', '040',“ & _
"'676767')"
Dim dbCmd As OleDbCommand =
New OleDbCommand(sqlCmd, conn)
conn.Open()

Dim conn As OleDbConnection = New
OleDbConnection(connString)
Dim sqlCmd As String = "UPDATE Kunden SET " & _
" [Telefon-Durchwahl] = '6785432' WHERE " & _
"Vorname = 'Peter' AND Nachname = 'Riesebehl'"
Dim dbCmd As OleDbCommand =
New OleDbCommand(sqlCmd, conn)
conn.Open()
Try
' Daten ändern
Dim res As Integer = dbCmd.ExecuteNonQuery()
Catch e As Exception
Console.WriteLine(e.Message)
End Try
conn.Close()

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de