Visual Basic - ayuda con update

alguien me puede ayudar kiero guardar los cambios hechos y ps no ace nada ahi les dejo el codigo aver si me pueden corregir en lo q ste mal

Private Sub Command2_Click()
On Error GoTo Errores
Dim RsProducto As New ADODB.Recordset
RsProducto.Open " Update producto Set precio =" & Txt3.Text & " Where folio ='" & Txt1.Text & "'", ConexionBd
MsgBox "Modificaciones Guardadas Correctamente", vbInformation
Errores:
End Sub

Hola, Adrian!!

Lo mejor que puedes hacer es usar un objeto command que se usa para ejecutar cualquier instruccion SQL.

Private Sub Command2_Click()
Dim CmdProducto As New ADODB.command
cmdProducto.ActiveConnection= ConexionBd
cmdProducto.commandType=adcmdStoredProc
cmdProducto.commandText= " Update producto Set precio =" & Txt3.Text & " Where folio ='" & Txt1.Text & "'"
cmdProducto.execute
MsgBox "Modificaciones Guardadas Correctamente", vbInformation
End Sub

Esa esuna de las formas mas basicas del objeto command.

Saludos!!