Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
Dim mySQLConn As New SqlConnection("Data source =(local);" & _
                            "initial catalog =" & _
                            "northwind;trusted_connection=yes;")
 
Dim mySQLADP As New SqlDataAdapter("SELECT * FROM Customers", mySQLConn)                
Dim cmd As New SqlCommand("UPDATE Customers SET CompanyName = @p1 WHERE" & _
  "CustomerID = @p2", mySQLConn)
Dim prm As SqlParameter = cmd.Parameters.Add("@p2", SqlDbType.VarChar)
 
        'Parametername Anfügen 
        cmd.Parameters.Add("@p1", SqlDbType.VarChar, 30, "CompanyName") 
 
        'Schlüsselspalte 
        prm.SourceColumn = "CustomerID" 
 
        'Originalwert ist maßgebend
        prm.SourceVersion = DataRowVersion.Original
 
	  'UpdateCommand
        mySQLADP.UpdateCommand = cmd
 
        'Update Methode
        mySQLADP.Update(ds, "Customers")
 
 
    End Sub

Langsamkeit entdeckt