'SELECT
myCommand.Connection = myConnection
myCommand.CommandType = CommandType.Text
SQL = "SELECT * FROM Tabelle1"
myCommand.CommandText = SQL
myDataReader = myCommand.ExecuteReader
 
'UPDATE
myCommandUpdate.Connection = myConnection2
myCommandUpdate.CommandType = CommandType.Text
myCommandUpdate.CommandText = "UPDATE Tabelle1 SET Ergebnis = ?Ergebnis WHERE" & _
  "ID = ?ID"
myCommandUpdate.Prepare()
myCommandUpdate.Parameters.Add("?Ergebnis", 1)
myCommandUpdate.Parameters.Add("?ID", 1)
 
While myDataReader.Read
 
  'BERECHNUNG
 
  myCommandUpdate.Parameters("?Ergebnis").Value = lErgebnis 
  myCommandUpdate.Parameters("?ID").Value = myDataReader.Item(0)
  myCommandUpdate.ExecuteNonQuery()
 
End While