.NET 4.x Получение файла с SQL (перевод кода с VBA) - Visual Basic .NET

Формулировка задачи:

Здравствуйте. Очень нужна помощь в переводе кусочка кода с VBA на VB.net. Сейчас занимаюсь переводом и облагораживанием своей программки, что аж готова пухнет: хоть синтаксис и похож, а править приходится много. Visual Studio ругается на это:

    iFileNum = FreeFile
    Open FileName For Binary As #iFileNum
        lFileLength = LenB(rs(FieldName))
        abBytes = rs(FieldName).GetChunk(lFileLength)
       
        Put #iFileNum, , abBytes
    Close #iFileNum

Его смущает Open, Close, Put - считает их переменными. Поиск по гуглу не помог. Сильно менять боюсь, т.к. это часть функции:

Public Function LoadFileFromDB(FileName As String, _
    rs As Object, FieldName As String) As Boolean
    Dim iFileNum As Integer
    Dim lFileLength As Long
    Dim abBytes() As Byte
    Dim iCtr As Integer
    
    'On Error GoTo ErrorHandler
    If Not TypeOf rs Is ADODB.Recordset Then Exit Function
     iFileNum = FreeFile
    Open FileName For Binary As #iFileNum
        lFileLength = LenB(rs(FieldName))
        abBytes = rs(FieldName).GetChunk(lFileLength)
       
        Put #iFileNum, , abBytes
    Close #iFileNum

    LoadFileFromDB = True
ErrorHandler:
End Function

Решение задачи: «.NET 4.x Получение файла с SQL (перевод кода с VBA)»

textual
                            Листинг программы 
                        

                                Public Function LoadFileFromDB(FileName As String,
    rs As Object, FieldName As String) As Boolean
        Dim iFileNum As Integer
        Dim lFileLength As Long
        Dim abBytes() As Byte
 
        'On Error GoTo ErrorHandler
        If Not TypeOf rs Is ADODB.Recordset Then
            LoadFileFromDB = False
            Exit Function
        End If
        iFileNum = FreeFile()
        '        Open For Binary As #iFileNum
        FileOpen(iFileNum, FileName, OpenMode.Binary)
        '        lFileLength = LenB(rs(FieldName))
        lFileLength = FileLen(rs(FieldName))
        abBytes = rs(FieldName).GetChunk(lFileLength)
        '        Put #iFileNum, , abBytes
        FilePut(iFileNum, abBytes)
        '        Close #iFileNum
        FileClose(iFileNum)
 
        LoadFileFromDB = True
ErrorHandler:
    End Function
                        