Ho questo codice che mi aggiorna un DB:


Private Sub Command1_Click()
On Error GoTo errore
Set cnado = New ADODB.Connection
cnado.Open = "file name=c:\datiBF.udl"

query = "ALTER TABLE `dettaglidocfor` ADD `test` TEXT"
cnado.Execute = query

query = "update dettaglidoc set sconto='0' where sconto is null"
cnado.Execute = query

cnado.Close
Exit Sub
errore:
MsgBox Err.Description
End Sub

Però vorrei che se la prima query non riesce, il programma deve proseguire con la seconda...

Come fare?