Private Sub Form_Load()
        
    'Открываем базу
    Dim SQLCn As New ADODB.Connection
    SQLCn.Open "Provider=MSDASQL.1;Extended Properties=""DRIVER=SQLite3 ODBC Driver;Database=D:\P.db;"""
    
    'Открываем файл с данными
    Dim FStream As New ADODB.Stream
    With FStream
        .Type = adTypeBinary
        .Open
        .LoadFromFile "D:\black-mesa.jpg"
    End With
    
    'Создаём команду с параметром
    Dim SQLCmd As New ADODB.Command
    With SQLCmd
        .ActiveConnection = SQLCn
        
        .CommandType = adCmdText
        .CommandText = "insert into img(data) values(?)"
        
        .Parameters.Append .CreateParameter("p1", adLongVarBinary, adParamInput, FStream.Size, FStream.Read)
    End With

    Dim RowsAff As Integer
    SQLCmd.Execute RowsAff
    
    FStream.Close
    MsgBox RowsAff
End Sub