Dim updSQL As String = "UPDATE [Tabelle] SET NeueSpalte= ? WHERE id = ?"
Dim cmdUpd As New OleDbCommand(updSQL, myConn)
cmdUpd.Parameters.Add("@p1", OleDbType.Double, 40, "NeueSpalte")
Dim prm As OleDbParameter = cmdUpd.Parameters.Add("@p2", OleDbType.Double)
prm.SourceColumn = "id"
prm.SourceVersion = DataRowVersion.Original
adapter.UpdateCommand = cmdUpd
 
Try
   myConn.Open()
   adapter.Update(dt)
Catch ex As Exception
    MessageBox.Show(ex.Source + ": " + ex.Message)
Finally
    myConn.Close()
End Try

'---------------------------------------------'
ich weiss, dass ich nichts weiss

immerSuchender