Dim conn As New New Odbc.OdbcConnection("{stringa di connessione a DB}")
 Dim query As String = "Update {nome tabella} SET [campo1]=[@parametro1], [campo2]=[@parametro2]WHERE [condizione]
dim cmd as new Odbc.OdbcCommend(query,conn)
dim parametro1 as new Odbc.OdbcParameter("@parametro1",DbType.[type del campo es.(int, Boolean, etc.)])
dim parametro2 as new Odbc.OdbcParameter("@parametro2",DbType.[type del campo es.(int, Boolean, etc.)])
cmd.parameters.add(parametro1)
cmd.parameters.add(parametro2)
parametro1.value = [valore da assegnare a campo1]
parametro2.value = [valore da assegnare a campo2]

 Try
            conn.Open()
          cmd.executenonquery
 Catch ex As Exception
            MsgBox("Errore: " & ex.Message)
        Finally
            conn.Close()
 End Try