این قسمت اصلی برنامست، با این حال خود برنامه هم ضمیمه شده
Dim DS As New DataSet()
SQLDataAdapter1.Fill(DS , "Flashcards")
Dim TheTable As DataTable = DS.Tables(0)
Dim aRow As DataRow = TheTable.NewRow()
Dim fs As New FileStream(FileName, FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()
aRow("Picture") = MyData
TheTable.Rows.Add(aRow)
sqlDataAdapter1.Update(ds, "Flashcards")