Visual Basic - Consulta sql

Saludos, estoy haciendo una consulta desde visual basic 6.0 a sql server 2000 pero me dice "sintaxis incorrecta cerca de la palabra clave where"
Esta es la consulta:

Dim con As New ADODB.Connection
dim sql as string

sql = "update Repuestos set cod_repuesto ='" & codtxt.Text & "'"
sql = txtsql & ", tipo_repuesto ='" & tipotxt.Text & "'"
sql = txtsql & ", descripcion ='" & desctxt.Text & "'"
sql = txtsql & ", precio_compra ='" & prctxt.Text & "'"
sql = txtsql & ", precio_venta ='" & prvtxt.Text & "'"
sql = txtsql & ", existencia ='" & existxt.Text & "'"
sql = txtsql & ", where cod_repuesto = '" & codtxt.Text & "'"""
con.Execute (sql)

comvierte los textbox a numero o moneda en caso de que la propiedad del registro lo sea currency,long,integer etc.