Dim myCmd As New SqlCommand
 Dim mySQLADP As SqlDataAdapter
 Dim mySQLCon As New SqlConnection
 
 myCmd.CommandText = strSqlMitParametern ' SQL String für UPDATE MIT PARAMETERN
 myCmd.Connection = mySQLCon
 mySQLADP.UpdateCommand = myCmd 'Command dem Adapter zuweisen
 
myCmd = New SQLCommand
myCmd.CommandText = strSqlMitParametern ' <-- Insert
myCmd.Connection = mySQLCon
mySQLADP.InsertCommand = myCmd