Dim fs As New IO.FileStream("c:\beispiel4.bmp", IO.FileMode.Open, _
          IO.FileAccess.Read)
        Dim buff(fs.Length - 1) As Byte
        fs.Read(buff, 0, buff.Length)
        fs.Close()
 
        Dim co As SqlConnection
        Dim cmd As SqlCommand
        Dim p As SqlParameter
 
        co = New SqlConnection("workstation id=NILSPC;packet size=4096;user" & _
          "id=sa;data source=NILSPC;persist security info=True;initial" & _
          "catalog=kaidb;password=sa")
        cmd = New SqlCommand
 
        cmd.Connection = co
        cmd.CommandText = "INSERT INTO tab1 (Pic) VALUES (@Pic)"
 
        p = cmd.Parameters.Add("@Pic", SqlDbType.Image)
        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

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