Forms Data Controls :: Creating Paging Functionality With A Data List Control With Asp.net (VB, Not C#)

I am in need of getting the correct sysntax for being able to use paging with a datalist whose data is being generated by a SQL Datasource and a stored procedure inside the aspx(asp.net VB...Not C#) page. A Gridview or any other rigid control that does not allow full control and layout will not work so I have to use the datalist. I have the datalist working perfectly but I need to add paging. I did some searching and found a good solution. It was a C# solution, in particular the code behind syntax so I used a code converter to convert it to VB. However, as I am not an experienced coder I need help converting the portion for handling the datalist. I am fairly confident I have the buttons on the aspx page worked out. I will ask that if you se something I need to do besides the section(5) I have listed please offer suggestions. So that you can help me better I have boken the code out into sections where I'm listing the code I copied, my code and the section I need help with. I think at a minimum I will have to change the references of Repeater to Datalist.

The section I need help with is section 5 where the original autor is referencing items generated in the Repeater where he used XML. As I said I'm using a SQL Datasource with a Datalist so I truly don't understand what I need to change to get the code behind to work with my Datalist. As always I appreciate all of you guys and ladies help. And also as always I will ask to please provide the actual code to type in because telling me how to do it just won't help very much. Sorry about that.

Here is what I have:
SECTION 1 - The buttons to handle the paging
*******************************************
<td> <asp:label id="lblCurrentPage" runat="server"></asp:label></td>
</tr>
<tr>
<td> <asp:button id="cmdPrev" runat="server" text=" << " onclick="cmdPrev_Click"></asp:button>
<asp:button id="cmdNext" runat="server" text=" >> " onclick="cmdNext_Click"></asp:button></td>
</tr>
********************************************

SECTION 2 - 4Guys repeater reading an XML file
*********************************************
<table border="1">
<asp:repeater id="repeaterItems" runat="server">
<itemtemplate>
<tr>
<td> <b><%# DataBinder.Eval(Container.DataItem, "ItemName") %></b></td>
<td> <b><%# DataBinder.Eval(Container.DataItem, "ItemDescription") %></b></td>
<td> <b><%# DataBinder.Eval(Container.DataItem, "ItemPrice") %></b></td>
<td> <b><%# DataBinder.Eval(Container.DataItem, "ItemInStock") %></b></td>
</tr>
</itemtemplate>
</asp:repeater>
</table>

*********************************************

SECTION 3 - My datalist control.
********************************************
<asp:DataList ID="DataList1" runat="server" DataKeyField="eid"
DataSourceID="SqlDataSource1">
<ItemTemplate>
<table cellpadding="0" cellspacing="0">
<tr>
<td>
</td>
</tr>
<tr>
<td>
<table cellpadding="0" cellspacing="0" width="600px">
<tr>
<td valign="top">
<table cellpadding="0" cellspacing="0">
<tr>
<td>
<b>Name</b></td>
</tr>
<tr>
<td>
<asp:Label ID="nameLabel" runat="server" style="font-size: 7pt"
Text='<%# Eval("name") %>' />
</td>
</tr>
<tr>
<td>
<b>Description</b></td>
</tr>
<tr>
<td>
<asp:Label ID="exDescriptionLabel" runat="server" style="font-size: 7pt"
Text='<%# Eval("exDescription") %>' />
</td>
</tr>
<tr>
<td>
<b>Workout Notes</b></td>
</tr>
<tr>
<td>
<asp:Label ID="notestipLabel" runat="server" style="font-size: 7pt"
Text='<%# Eval("notestip") %>' />
</td>
</tr>
<tr>
<td>
<b>Base Workout</b></td>
</tr>
<tr>
<td style="font-size: 7pt">
<asp:Label ID="broutineLabel" runat="server" Text='<%# Eval("broutine") %>' />
</td>
</tr>
<tr>
<td>
<b>Major Bodypart</b></td>
</tr>
<tr>
<td style="font-size: 7pt">
<asp:Label ID="bodypartmgLabel" runat="server"
Text='<%# Eval("bodypartmg") %>' />
</td>
</tr>
<tr>
<td>
<b>Target Bodypart</b></td>
</tr>
<tr>
<td style="font-size: 7pt">
<asp:Label ID="bodypartspecificLabel" runat="server"
Text='<%# Eval("bodypartspecific") %>' />
</td>
</tr>
<tr>
<td>
<b>Supporting Muscles</b></td>
</tr>
<tr>
<td>
<asp:Label ID="secondary_areasLabel" runat="server"
Text='<%# Eval("secondary_areas") %>' />
</td>
</tr>
</table>
<b>
<br />
</b>
</td>
<td valign="top">
<asp:HyperLink ID="HyperLink31" runat="server"
ForeColor="White"
ImageUrl='<%# Eval("videoplay") %>'
OnClick='<%# String.Format("return popIt({0})", Eval("eid")) %>'
NavigateUrl='<%# String.Format("~/player2010.aspx?eid={0} ", Eval("eid")) %>'
Text='<%# Eval("ddupdateworkout") %>'>
</asp:HyperLink>
</td>
<td valign="top">
<table>
<tr>
<td>
<table align="left" cellpadding="0" cellspacing="0">
<tr>
<td>
</td>
<td style="text-align: center">
<asp:Image ID="Image1" runat="server" ImageUrl='<%# Eval("modelImage") %>' />
</td>
</tr>
<tr>
<td>
</td>
<td style="text-align: center">
<asp:Label ID="modelNameLabel" runat="server" Text='<%# Eval("modelName") %>' />
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td>
<asp:HyperLink ID="HyperLink1" runat="server" ForeColor="White"
NavigateUrl='<%# String.Format("~/favorites_addexercise.aspx?eid={0}&name={1}&exercateg={2}&bodypartmg={3}&bodypartspecific={4}&demolink={5} ", Eval("eid"),
Eval("name"), Eval("exercateg"), Eval("bodypartmg"), Eval("bodypartspecific"), Eval("demolink")) %>'
Text='<%# Eval("addtofavorite") %>'></asp:HyperLink>
</td>
</tr>
<tr>
<td>
<asp:HyperLink ID="HyperLink30" runat="server" ForeColor="White"
NavigateUrl='<%# String.Format("~/workouts_create.aspx?eid={0} ", Eval("eid")) %>'
Text='<%# Eval("ddnewworkout") %>'></asp:HyperLink>
</td>
</tr>
<tr>
<td>
<asp:HyperLink ID="HyperLink2" runat="server" ForeColor="White"
NavigateUrl='<%# String.Format("~/workouts_saved_addexer.aspx?eid={0} ", Eval("eid")) %>'
Text='<%# Eval("ddupdateworkout") %>'></asp:HyperLink>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table cellpadding="0" cellspacing="0">
<tr>
<td>
</td>
</tr>
<tr>
<td>
</td>
</tr>
</table>
</td>
<td>
</td>
<td>
<table cellpadding="0" cellspacing="0">
<tr>
<td>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br />
<br />
</ItemTemplate>
</asp:DataList>

********************************************

SECTION 4 - Public Property CurrentPage() As Integer
Get
' look for current page in ViewState
Dim o As Object = Me.ViewState("_CurrentPage")
If o Is Nothing Then
Return 0
Else
' default to showing the first page
Return CInt(o)
End If
End Get
Set
Me.ViewState("_CurrentPage") = value
End Set
End Property
Private Sub Page_Load(sender As Object, e As System.EventArgs)
' Call the ItemsGet method to populate control,
' passing in the sample data.
ItemsGet()
End Sub

SECTION 5 - NEED HELPING IN CHANGING TO WORK WITH DATA LIST
***************************************************
Private Sub ItemsGet()
' Read sample item info from XML document into a DataSet
Dim Items As New DataSet()
Items.ReadXml(MapPath("Items.xml"))
' Populate the repeater control with the Items DataSet
Dim objPds As New PagedDataSource()
objPds.DataSource = Items.Tables(0).DefaultView
objPds.AllowPaging = True
objPds.PageSize = 3
objPds.CurrentPageIndex = CurrentPage
lblCurrentPage.Text = "Page: " & (CurrentPage + 1).ToString() & " of " & objPds.PageCount.ToString()
' Disable Prev or Next buttons if necessary
cmdPrev.Enabled = Not objPds.IsFirstPage
cmdNext.Enabled = Not objPds.IsLastPage
repeaterItems.DataSource = objPds
repeaterItems.DataBind()
End Sub

Private Sub cmdPrev_Click(sender As Object, e As System.EventArgs)
' Set viewstate variable to the previous page
CurrentPage -= 1
' Reload control
ItemsGet()
End Sub

Private Sub cmdNext_Click(sender As Object, e As System.EventArgs)
' Set viewstate variable to the next page
CurrentPage += 1
' Reload control
ItemsGet()
End Sub