Visual Basic

Private Function GetCustName(ByVal CustNum As String) As String<br />
    Dim strConn As String = ConfigurationSettings.AppSettings.Item("connectionstring")  'Read connection string from web.config<br />
    Dim conSQL As New SqlConnection(strConn)  'Create the connection<br />
    Dim cmdSQL As New SqlCommand("SELECT CustName FROM Customers WHERE CustNum ='" & CustNum & "'", conSQL) 'The query I want to run<br />
    Dim Rdr As SqlDataReader<br />
    conSQL.Open() 'Open the connection<br />
    Rdr = cmdSQL.ExecuteReader()  'Execute the query<br />
    Rdr.Read() 'Read the record (only returns ONE record!)<br />
    GetCustName = IIf(IsDBNull(Rdr("CustName")), "", Rdr("CustName"))  'Read the value from a field called 'CustName'<br />
    conSQL.Close()<br />
End Function

myName.text = Rdr("Name")<br />
myAddress1.text = Rdr("Address1")<br />
myAddress2.text = Rdr("Address2")<br />
etc...