navigata through database

Imports System.Data.OleDb

Imports System.Data.SqlClient
  

Public Class default

    Inherits System.Web.UI.Page

    Dim Sqll As String

 

    Dim dst As New DataSet

    Dim MaxRows As Integer

    Dim SQLConnection As Object

    Dim uid As Integer

    Dim da As OleDb.OleDbDataAdapter

    Dim cmd As SqlCommand

    Dim conn As New OleDb.OleDbConnection

    Dim actualid As Integer = Convert.ToInt32(txt_id.Value)

  

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Navigate(actualid)

    End Sub

        Private Sub Navigate(int As Integer)

 

        Dim actualid As Integer = Convert.ToInt32(txt_id.Value)

        Dim conn As New OleDb.OleDbConnection

        Dim strConn As String = "Provider=SQLOLEDB; Data Source=; Initial Catalog=; User ID=; Password="

        conn.ConnectionString = strConn

 

        conn.Open()

        Dim dst As New DataSet

        Dim da As OleDb.OleDbDataAdapter

        Sqll = "SELECT * FROM Person WHERE Id ='txt_id.value'"

        da = New OleDb.OleDbDataAdapter(Sqll, conn)

        da.Fill(dst, "Person")

        Max = dst.Tables("Customer").Rows.Count

        txt_name.Value = ds.Tables("Person").Rows(inc).Item("2")

        txt_surname.Value = ds.Tables("Person").Rows(inc).Item("3")

        txt_city.Value = ds.Tables("Person").Rows(inc).Item("4")

txt_id.Value = dst.Tables("Person").Rows(int).Item("Id")

conn.close()

    End Sub

    Protected Sub btn_next_Click(sender As Object, e As EventArgs) Handles btn_next.Click

        If actualid <> MaxRows Then
            actualid = actualid + 1

            Navigate(actualid)

        End If

    End Sub

 

 
    Protected Sub btn_first_Click(sender As Object, e As EventArgs) Handles btn_first.Click

        If (actualid <> 0) Then

            actualid = 0

            Navigate(actualid)

        End If

    End Sub

 
    Protected Sub btn_previews_Click(sender As Object, e As EventArgs) Handles btn_previews.Click

        If (actualid > 0) Then

            actualid = actualid - 1

            Navigate(actualid)

        End If

    End Sub

    Protected Sub btn_last_Click(sender As Object, e As EventArgs) Handles btn_last.Click

        If (actualid <> (MaxRows - 1)) Then

            actualid = MaxRows - 1

 
            Navigate(actualid)


        End If

    End Sub