Ошибка при вызове процедуры

[AHTOXA]

При вызове процедуры:

Sub UpploadRecsToDB()
On Error GoTo errors
Dim con_info As ConnectionInfo
Dim use_ta As Boolean
con_info = LoadConfig()
use_ta = con_info.UseTransaction
OpenDBCon (con_info) StartTransaction (use_ta)
AddAllRecords (con_info.TimeInterval)
CommitTransaction (use_ta)
GoTo ends
errors:
RollbackTransaction (use_ta)
MsgBox (Err.Description)
Err.Clear
Resume ends
ends:
Application.StatusBar = "Ready"
CloseDBCon
End Sub

Возникает ошибка: variable requaired - can't assign to this expression, может я не правильно передаю параметр:

Private Sub OpenDBCon(ByRef ConInfo As ConnectionInfo)
....
end sub

[RayShade]

Насколько я понимаю, надо писать Set con_info = LoadConfig



и не надо скобок при OpenDBCon con_info

[AHTOXA]

А если функция возвращает простой тип, допустим integer, то инструкция Set не нужна?

[AHTOXA]

Set con_info = LoadConfig, ругается, говорит - "Object requaired"