how to get the return value from excel builtin methods

hi,

I am using the below code in my excel vba.

ActiveWorkbook.Connections(1).ODBCConnection.Refresh

I want to check from the program whether the refresh worked correctly. i just want to know whether it pops up error because of invalid username and password. i saw in the link http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.odbcconnection.refresh.aspx .

If the refresh method didnt completed correctly then the method 'refresh' returns false. how can i assign that return value to a boolean variable.

i tried like

Dim fl As Boolean
fl=ActiveWorkbook.Connections(1).ODBCConnection.Refresh

it throws the compile error as type mismatch.


please help me how to check whether refresh method works correctly.

I think the documentation about this instruction is not consistent and/or correct

You could try creating a separate function with error handling

Public Function RefreshConnection(ByRef prmConnection As ODBCConnection) As Boolean
On Error GoTo CatchError
'#
'# disable warning dialogs
'#
     Application.DisplayAlerts = False
'#
'# refresh the connection
'#
     prmConnection.Refresh
     RefreshConnection = (Application.ODBCErrors.Count > 0)

ExitRoutine:
'#
'# reset warning dialogs
'#
     Application.DisplayAlerts = True
     Exit Function
CatchError:
     RefreshConnection = True
     Resume ExitRoutine
End Function

This function should return true in case of any errors, but without displaying warnings, unless ODBC generates one