sql UPDATE

Jeg har lidt problemer med dette VB scripts :

If Check3.Value = 1 Then
Text10.Text = "Ja"
End If

If Check3.Value = 0 Then
Text10.Text = "Nej"
End If

On Error GoTo A
Set con = New Adodb.Connection
Set rs = New Adodb.Recordset
'Binder databasen til variablen mystring


mystring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\F34945\Desktop\Program oversigt\Db\ProDB.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=True;Jet OLEDB:Database Password=test"
con.Open (mystring)

mysql = "UPDATE fish_info SET [Navn] = '" & Text6.Text & "', [Produktions] = '" & Text7.Text & "', [Produkt] = '" & Text8.Text & "',[Lokation] = '" & Text9.Text & "',[aktuel] = '" & Text10.Text & "', WHERE [Nr] = " & Text5.Text


res.Open mysql, con, adOpenDynamic
      con.Execute mysql


Do Until rs.EOF

Loop


A:

Set rs = Nothing
Set con = Nothing


Er der kan en der kan se sig ud af hvorfor dette script bare ikke vil virke :-(