INSERINDO IMAGEM EM BANCO ACCESS

Sub InserirDados()
Dim MAT As Integer
Dim CLB As String, FN As String, Inserir As String
Dim MyStr As ADODB.Stream
Dim vFT
 MAT = txt_Mat.Text
 CLB = txt_Col.Text
 FN = txt_Fun.Text

Abb
Set MyStr = New ADODB.Stream
MyStr.Type = adTypeBinary
MyStr.Open
MyStr.LoadFromFile CamFT  [ô] Caminho da Commom Dialog
vFT = MyStr.Read

Inserir = [Ô]INSERT INTO Dados(Matricula,Colaborador,Funcao,Foto)[Ô] & [Ô]Values([Ô] & MAT & [Ô],[ô][Ô] & CLB & [Ô][ô],[ô][Ô] & FN & [Ô][ô],[ô][Ô] & vFT & [Ô][ô])[Ô]
Con.Execute Inserir
 MsgBox [Ô]Dados Salvos.[Ô], vbInformation
MyStr.Close
FcB
End Sub