[size=2][color=#0000ff]Dim[/color][/size][size=2] cn [/size][size=2][color=#0000ff]As[/color][/size][size=2] SqlConnection
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] cm [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]New[/color][/size][size=2] SqlCommand
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] da [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]New[/color][/size][size=2] SqlDataAdapter
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] ds [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]New[/color][/size][size=2] DataSet
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] dr [/size][size=2][color=#0000ff]As[/color][/size][size=2] DataRow
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] drds [/size][size=2][color=#0000ff]As[/color][/size][size=2] DataRow
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] dt [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]New[/color][/size][size=2] DataTable
cn = [/size][size=2][color=#0000ff]New[/color][/size][size=2] SqlConnection("pwd=sidskip1; UID=sa; server=(local); database=Shannon")
cm = [/size][size=2][color=#0000ff]New[/color][/size][size=2] SqlCommand("select vcFileName from tblShannon", cn)
cm.CommandType = CommandType.Text
[/size][size=2][color=#0000ff]Try
[/color][/size][size=2]cn.Open()
da.SelectCommand = cm
cn.Close()
[/size][size=2][color=#0000ff]Catch[/color][/size][size=2] ex [/size][size=2][color=#0000ff]As[/color][/size][size=2] Exception
[/size][size=2][color=#0000ff]Throw[/color][/size][size=2] ex
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Try
[/color][/size][size=2]da.Fill(ds, "Pic")
ds.Tables("Pics").Columns.Add("Image", [/size][size=2][color=#0000ff]GetType[/color][/size][size=2](System.Byte))[/size]