dim sql_string as string 
 
' Update String aufbauen
 
sql_string =  "Update Maschine Set Maschine = ? where Index_Maschine = ? "
sql_string = sql_string & "Update Abteilung Set Abteilung = ? where" & _
  "Index_Maschine = ?"
 
dim cmd as new sqlcommand ( sql_string, connection)
 
cmd.parameters.add("@p1", sqltype.varchar, 40 , "Maschine"
cmd.parameters.add("@p2", sqltype.varchar, 40 , "Index_Maschine"
cmd.parameters.add("@p3", sqltype.varchar, 40 , "Abteilung"
cmd.parameters.add("@p4", sqltype.varchar, 40 , "Index_Maschine"
 
da.insertcommand = cmd