That looks pretty straightforward, except for the {}. Those aren't used in VBA. Did you put them in there?
Anyway, there is probably one of these at the top of the sub:
On Error Resume Next
Just rem out that line with a ' at the beginning, and the server will start sending errors again.
Alternatively, you can check for the errors yourself:
Err.Clear
cn.Open "Driver={MySQL ODBC 3.51 Driver};Server=74.1.1.4;Port=3306;Database=data_ba se;User=user_name;Password=pass123;Option=3;"
If Err <> 0 Then
MsgBox 'error items you want to see like Err.Description, Err.Number, Err.Source, Err.HelpFile, etc.
End IF
Err.Clear
Did that help?
mmcdonal
|