ASP.NET

<br />
Private Sub GetMyIntDataTypeField()<br />
<br />
        Dim Get_ MyIntDataTypeField_StrSQL As String<br />
        Dim Get_ MyIntDataTypeField_ObjCmd As SqlCommand<br />
<br />
        Dim strConn As String = ConfigurationManager.ConnectionStrings("MyConnString").ToString()<br />
<br />
<br />
        Dim MyCon As SqlConnection<br />
        MyCon = New SqlConnection(strConn)<br />
<br />
        Get_ MyIntDataTypeField_StrSQL = "Select MyIntField from MyTable"<br />
<br />
        MyCon.Open()<br />
<br />
        Get_ MyIntDataTypeField_ObjCmd = New SqlCommand(Get_ MyIntDataTypeField_StrSQL, MyCon)<br />
<br />
        ValueFromDB = Get_ MyIntDataTypeField_StrSQL_ObjCmd.ExecuteScalar<br />
<br />
        MyCon.Close()<br />
<br />
    End Sub<br />

If Not (Page.IsPostBack) Then
            Dim dataSource As DataView

            'Retrieve item from cache if anything is not there then we have to add to the cache


            dataSource = Cache("CheDataSet")

            If dataSource Is Nothing Then

                Dim Conn As SqlConnection
                Dim Cmd As SqlDataAdapter

                'Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("con2"))
                Cmd = New SqlDataAdapter("select * from tblcutomer2", myConnection)

                Dim ds As New DataSet
                Cmd.Fill(ds, "clientadd")

                dataSource = New DataView(ds.Tables("clientadd"))
                Cache("CheDataSet") = dataSource

                CacheMsg.Text = "Dataset was Created directly from the Datebase. Here the Cache was not used but the Cache was Created,so check for the performence next time."
            Else

                cacheMsg.Text = "Dataset was Retrieved from cache which was created earlier."
            End If

            ddlcus.DataSource = dataSource
            ddlcus.DataTextField = "clientname"
            ddlcus.DataValueField = "intcustid"

            ddlcus.DataBind()
            ddlcus.Items.Insert(0, "-Select-")
        End If
-----------------------------------------------------------------------------------
Selected Index event:
---------------------
  Dim cmd As New SqlCommand("select intcustid,clientadd as address from tblcutomer2 where intcustid='" & ddlcus.SelectedItem.Value & "' ", myConnection)
        myConnection.Open()
        Dim myDataReader As SqlDataReader
        myDataReader = cmd.ExecuteReader()
        While (myDataReader.Read()) = True

            txtcusadd.Text = myDataReader("address")
        End While
        myDataReader.Close()
        myConnection.Close()