want to up load the image file in msaccess database.. i get error

// syntax error in INSERT INTO

dim data() as byte
If Trim(TextBox1.Text) = "" Then
MsgBox("please select a image")
Exit Sub
End If
Dim fs As New FileStream(Trim(TextBox1.Text), FileMode.Open, FileAccess.Read)
Data = New [Byte](fs.Length) {}
fs.Read(data, 0, fs.Length)
sSQL = "INSERT INTO image VALUES (data)"
dba.Execute(sSQL)
If Trim(TextBox1.Text) = "" Then
MsgBox("please select a image")
Exit Sub
End If
Dim fs As New FileStream(Trim(TextBox1.Text), FileMode.Open, FileAccess.Read)
Data = New [Byte](fs.Length) {}
fs.Read(data, 0, fs.Length)
sSQL = "INSERT INTO image VALUES (data)"
dba.Execute(sSQL)

Your sql statement is incorrect because it is literally being passed to Access as: INSERT INTO image VALUE(data). Which is incorrect.

Also you dont define a column where the data should be inserted (As i assume you have multiple columns in this table). So you would need to alter your INSERT to sometihng like INSERT INTO image(imageData) Values ([byte data here]).

The solution below may or may not work, I know that in .NET i have to set my query up a different way to pass byte data into it properly but you can try this:

sSQL = "INSERT INTO image([columnname]) VALUES(" & data &")"

hth

"The one language all programmers understand is profanity."