Dim adptContactList As SqlDataAdapter
Dim dsContacts As DataSet1
Public dsDepartment As DataSet2
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dsContacts = Cache("DataSet1")
dsDepartment = Cache("DataSet2")
adptContactList = Cache("adptContactList")
If Not IsPostBack Then
SqlDataAdapter1.Fill(DepartmentNames)
txtDept.DataBind()
End If
End Sub
I'm not sure if this is what you're looking for as I'm somewhat new to this stuff. Oh, and I'm basing this code off of material covered in the MCAD/MCSD Self-Paced Training Kit series for Developing Web Applications with VB.NET and C#.NET.