Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim SQLQuery As String
        Dim DT As DataTable
        Dim DA As SqlDataAdapter
        Dim DR As DataRow
        Dim CB As SqlCommandBuilder
        Dim DSGUID As New Guid()
        Dim PictureStream As FileStream
        Dim RAMFile As MemoryStream
        Dim conn As SqlConnection
 
        conn = New SqlConnection("user id=cup;password=cupgold;initial" & _
          "catalog=CUPnew;data source=EXTRA ;Connect Timeout=10")
 
        Dim Picname As String = "C:\MetaStream.emf"
 
        SQLQuery = "Select xray from Test"
 
        DA = New SqlDataAdapter(SQLQuery, conn)
        CB = New SqlCommandBuilder(DA)
        DT = New DataTable()
 
        DA.FillSchema(DT, SchemaType.Source)
 
        DR = DT.NewRow
 
        DSGUID = Guid.NewGuid
        RAMFile = New MemoryStream()
 
        PictureStream = New FileStream(picname, FileMode.Open, FileAccess.Read, _
          FileShare.Read)
        Dim PictureBuffer(CType(PictureStream.Length, Integer)) As Byte
 
        PictureStream.Read(PictureBuffer, 0, CType(PictureStream.Length, _
          Integer))
 
        DR("xray") = PictureBuffer
 
        DT.Rows.Add(DR)
 
        MsgBox(CB.GetInsertCommand.CommandText)
 
        Try
 
            DA.Update(DT)
            DA.Dispose()
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try
 
        conn.Close()
 
    End Sub