Dim conn As New OleDbConnection("Jet OLEDB:Engine Type=5;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\test.mdb")
conn.Open()
Dim para As New OleDbParameter("@content", OleDbType.Binary)
para.Value = arr
Dim cmd As New OleDbCommand
Try
With cmd
.CommandText = "insert into tbl(content) values (@content)"
.Connection = conn
.Parameters.Add(para)
.ExecuteNonQuery()
End With
conn.Close()
conn.Dispose()
conn = Nothing