Подскажите пожалуйста , новичку), можно ли результату функции присвоить значение объектного типа, например, мною написана функция , устанавливающая соединение с MySql

Function toMySql()

Dim MySqlCon As Object
Set MySqlCon = New ADODB.Connection
Set toMySql = MySqlCon

MySqlCon.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _
"SERVER=srv-mysql;" & _
"DATABASE=MIC1;" & _
"UID=test;" & _
"PASSWORD=123456;" & _
"PORT:3306;" & _
"charset=cp1251;" & _
"Option=3;"
If MySqlCon.State = adStateOpen Then
'MsgBox "Connected! =)"
toMySql = MySqlCon
End If
End Function

Функция сама по себе работает , но при обращении к ней из процедуры

Private Sub Workbook_Open()
Dim V As Object
If toMySql().State = adStateOpen Then


MsgBox ("Привет")
End If
End Sub
возникает 424 ошибка, я так понимаю связанная с описание объекта
Сам пишу на С++ , вот пробую разобраться с VBA / Работает ли в VBA объектная модель в полном ее смысле слова?
Заранее спасибо

Private Sub Workbook_Open()

Dim V As New ADODB.Connection
Set V = toMySql()



If V.State = adStateOpen Then


MsgBox ("Connected")
End If

Благодарю за совет.
Не работает, по прежнему

Ошибка 424

Ошибка возникает в после вызова функции
Set V = toMySql()

Спасибо,заработало)

Private Sub Workbook_Open()
Dim V As ADODB.Connection
Set V = toMySql()
If Not V Is Nothing Then
If toMySql().State = adStateOpen Then
MsgBox ("State = adStateOpen")
Else
MsgBox ("State <> adStateOpen")
End If
Else
MsgBox "Not connected."
End If