ASP.NET FormView Control - DataSet,DataTable,TableRows

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Page Language="VB" %>
<script runat="server">
    Sub Page_Load(sender As Object, e As EventArgs)


		IF Not Page.IsPostBack() Then
			BindData()
		End IF



    End Sub

	Sub BindData()
		Dim dt As DataTable

		'*** DataSet To DataTable ***'
		dt = CreateDsToDt()
		
		'*** DataTable ***'
		'dt = CreateDataTable()

		'*** DataSet ***'
		'dt = CreateDataSet.Tables(0) '*** Convert DataSet to DataTable ***'

		'*** TableRows ***'
		'dt = DataTableRows()

		'*** BindData to FormView ***'
		myFormView.DataSource = dt
		myFormView.DataBind()
	End Sub

	'*** DataTable ***'
	Function CreateDataTable() As DataTable
        Dim objConn As New OleDbConnection
		Dim dtAdapter As OleDbDataAdapter 
		Dim dt As New DataTable
       
       
		Dim strConnString As String
		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
		objConn = New OleDbConnection(strConnString)
		objConn.Open()

		Dim strSQL As String		
		strSQL = "SELECT * FROM gallery"
		
		dtAdapter = New OleDbDataAdapter(strSQL, objConn)
		dtAdapter.Fill(dt)

		dtAdapter = Nothing

		objConn.Close()
		objConn = Nothing

		Return dt '*** Return DataTable ***'

	End Function


	'*** DataSet ***'
	Function CreateDataSet() As DataSet
        Dim objConn As New OleDbConnection
		Dim objCmd As New OleDbCommand
        Dim dtAdapter As New OleDbDataAdapter
       
		Dim ds As New DataSet
		Dim strConnString,strSQL As String

		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
		strSQL = "SELECT * FROM gallery"

		objConn.ConnectionString = strConnString
		With objCmd
			.Connection = objConn
			.CommandText = strSQL			
			.CommandType = CommandType.Text
		End With
		dtAdapter.SelectCommand = objCmd

		dtAdapter.Fill(ds)

		dtAdapter = Nothing		
		objConn.Close()
		objConn = Nothing

		Return ds '*** Return DataSet ***'

	End Function

	'*** DataSet To DataTable ***'
	Function CreateDsToDt() As DataTable
        Dim objConn As New OleDbConnection
		Dim objCmd As New OleDbCommand
        Dim dtAdapter As New OleDbDataAdapter
       
		Dim ds As New DataSet
		Dim dt As DataTable
		Dim strConnString,strSQL As String

		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
		strSQL = "SELECT * FROM gallery"

		objConn.ConnectionString = strConnString
		With objCmd
			.Connection = objConn
			.CommandText = strSQL			
			.CommandType = CommandType.Text
		End With
		dtAdapter.SelectCommand = objCmd

		dtAdapter.Fill(ds)		
		dt = ds.Tables(0)
		
		dtAdapter = Nothing
		objConn.Close()
		objConn = Nothing

		Return dt   '*** Return DataTable ***'

	End Function

	'*** TableRows (DataTable) ***'
	Function DataTableRows() As DataTable
        Dim dt As New DataTable
        Dim dr As DataRow
		
		'*** Column ***'
        dt.Columns.Add("GalleryID")
        dt.Columns.Add("GalleryName")
        dt.Columns.Add("Picture")
		
		'*** Rows ***'
		dr = dt.NewRow
        dr("GalleryID") = "1"
        dr("GalleryName") = "My Picture 1"
        dr("Picture") = "DSC01683.jpg"
        dt.Rows.Add(dr)

		'*** Rows ***'
		dr = dt.NewRow
        dr("GalleryID") = "2"
        dr("GalleryName") = "My Picture 2"
        dr("Picture") = "DSC01719.jpg"
        dt.Rows.Add(dr)

		'*** Rows ***'
		dr = dt.NewRow
        dr("GalleryID") = "3"
        dr("GalleryName") = "My Picture 3"
        dr("Picture") = "DSC01805.jpg"
        dt.Rows.Add(dr)
		
		'*** Rows ***'
		dr = dt.NewRow
        dr("GalleryID") = "4"
        dr("GalleryName") = "My Picture 4"
        dr("Picture") = "DSC01806.jpg"
        dt.Rows.Add(dr)

		Return dt '*** Return DataTable ***'
	End Function

    Sub myFormView_DataBound(ByVal sender As Object, ByVal e As System.EventArgs)

		'*** Image ***'
		Dim Image1 As Image = CType(myFormView.FindControl("Image1"),Image)
		IF Not IsNothing(Image1) Then
			Image1.ImageUrl = "images/"&myFormView.DataItem("Picture")
			Image1.Attributes.Add("OnClick", "window.open('images/"&myFormView.DataItem("Picture")&"')")
			Image1.Style.Add("cursor","hand")
			Image1.ToolTip = myFormView.DataItem("GalleryName")
		End IF

		'*** GalleryName ***'
		Dim lblGalleryName As Label = CType(myFormView.FindControl("lblGalleryName"),Label)
		IF Not IsNothing(lblGalleryName) Then
			lblGalleryName.Text = myFormView.DataItem("GalleryName")
		End IF

    End Sub

	Sub ShowPageCommand(s As Object, e As FormViewPageEventArgs)
		myFormView.PageIndex = e.NewPageIndex
		BindData()
	End Sub	

</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - FormView</title>
</head>
<body>
	<form id="form1" runat="server">
		<asp:FormView id="myFormView" runat="server"  
		OnDataBound="myFormView_DataBound" 
		OnPageIndexChanging="ShowPageCommand"
		AllowPaging="True">
            <ItemTemplate>
			<table width="500" cellpadding="5" border="0">
				<tr>
					<td valign="top" align="center">
						<asp:Image id="Image1" runat="server"/>
						<br />
						<h2><asp:Label id="lblGalleryName" runat="server"></asp:Label></h2>
					</td>
				</tr>
			</table>
            </ItemTemplate>
		</asp:FormView>
	</form>
</body>
</html>