Ciao.
Innanzitutto ho trovato la descrizione al tuo errore su MSDN - Library:
0x80040E57 -2147217833 A literal value in the command overflowed the range of the type of the associated column.

In ogni caso, un modo per intercettare gli errori in VB6 è il seguente:

Private Sub Command1_Click()
On Error GoTo int_Err 'Dichiaro che al verificarsi di un errore deve eseguire il codice che segue la label int_Err
Dim i As Integer
i = 300 / 0 'Genero un errore di Divisione per 0
Exit Sub

int_Err:
MsgBox "Errore n." & Err.Number & vbCrLf & "Descrizione: " & Err.Description, vbCritical, "ERRORE"
End Sub


In VB.net invece esiste un costrutto try...catch che ti permette di fare più o meno la stessa cosa (fai riferimento al manuale).

Spero di esserti stato d'aiuto, fammi sapere.
Ciao!!