ADO STREAM problem

Private Sub Form_Load()
    SendInfo
End Sub


Public Function SendInfo()
    If Command <> "" Then 'must have a command line argument
        ReadIPFile
        Socket.Close
        Socket.Connect strIP, 500 'sends us into Socket_Connect event
    Else
        MsgBox "USAGE: DROP ANY FILE ON ME."
    End If
End Function


Private Sub Socket_Connect()
    Dim adoStream As New ADODB.Stream
    Dim ifFile As FILE_INFO
    
    adoStream.Open
    adoStream.Type = adTypeBinary
    'open file and read it in
    'Open Command For Binary As #1
    'Get #1, , data
    adoStream.LoadFromFile Command '*************FAILS IN EXE***********
    'Close #1
    
    'set file info
    ifFile.size = adoStream.size
    ifFile.filepath = strPath & GetFileName(Command)
    
    'send file info first
    Socket.SendData ifFile.size & "-" & ifFile.filepath
    DoEvents 'flush the socket
    'now send the actual data
    Socket.SendData data
    'DoEvents 'flush the socket
    
    'clean up
    'Socket.Close
    'adoStream.Close
    'End
End Sub