[VB6] update con ADO e Sql

[asva]

scusate ma sono alla prima esperienza e ho bisogno di aiuto

ho la necessità di aggiornare una tabella di access in base a quanto selezionato da una commondialog

avevo fatto così ma ottengo sempre errori:

Private Sub Command1_Click()


On Error GoTo GestoreErrori
CommonDialog1.InitDir = "c:\"
CommonDialog1.ShowOpen
'recupero il nome del file selezionato
file_selezionato = CommonDialog1.FileName

'e fin qui tutto ok..

[asva]

scusate manca un pezzo di codice

quindi recuperato il nomefile dalla common vorrei aggiornare il db

quindi:

Dim percorsoFile As String

Dim StringaConn As String
StringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\varie-vb\prog_Claudio\cartella\origine.mdb"
'supponendo che sia stato assegnato il nome adodc1 al conponente data ADO
AdoRecupero.ConnectionString = StringaConn
'se dovessi recuperare i record per associarli ad un oggetto farei AdoRecupero.RecordSource = "select * from percorso;"

ma io devo aggiornare il db con una query sql UPDATE
e avevo scritto
AdoRecupero.RecordSource = "UPDATE percorso set path_anagrafica=" & file_selezionato & " WHERE ID=1"