Dim con As New SqlConnection("...")
Dim sql as String
sql = "INSERT INTO Tabelle(Feld1) Values (" & bild & ")"
 
Dim cmd As New SqlCommand(sql, con)
Dim bild As Image
 
bild = Me.myPicBox.Image
 
cmd.ExecuteNonQuery()