[VB6] intercettare gli errori, On Error non mi funziona

[oregon]

Prova con il codice corretto cosi'

Private Sub untimer_Timer()
On Error GoTo errhandler
array1 = Split(txtTemp.Text, vbCrLf)

Set mrec = mysql.query("...una query SQL...")

Exit Sub

errhandler:
untimer.Enabled = False
altrotimer.Enabled = True
Resume Next
End Sub