Dim fs As New IO.FileStream("c:\beispiel.jpg", IO.FileMode.Open, _
          IO.FileAccess.Read)
        Dim buff(fs.Length - 1) As Byte
 
        fs.Read(buff, 0, buff.Length)
        fs.Close()
 
        Dim co As OleDbConnection
        Dim cmd As OleDbCommand
        Dim p As OleDbParameter
 
        co = New OleDbConnection("Auto Translate=True;User ID=xxx;Tag with" & _
          "column collation when possible=False;Data" & _
          "Source=SERVER;Password=xxx;Initial Catalog=kaidb;Use Procedure for" & _
          "Prepare=1;Provider='SQLOLEDB.1';Persist Security" & _
          "Info=True;Workstation ID=SERVER;Use Encryption for Data=False;Packet" & _
          "Size=4096")
        cmd = New OleDbCommand
 
        cmd.Connection = co
        cmd.CommandText = "INSERT INTO tabelle1 (spalte3) VALUES (@pic)"
 
        p = cmd.Parameters.Add("@pic", OleDbType.VarBinary)
        p.Direction = ParameterDirection.Input
        p.Size = buff.Length
        p.Value = buff
 
        co.Open()
        Try
            Dim intCreated = cmd.ExecuteNonQuery()
            MsgBox(intCreated & " Datensätze erzeugt")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            co.Close()
        End Try

Die Variable '@pic' muss deklariert werden

N I C H T S - I S T - S O - W I E - E S - S C H E I N T