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..