> Private Sub setConnections() > Dim oTimeTracker As New TimeTrackerClass(True) > contimecollection.ConnectionString = oTimeTracker.getconnectionstring() > daProjects.SelectCommand.Connection = contimecollection > daTasks.SelectCommand.Connection = contimecollection > daResources.SelectCommand.Connection = contimecollection > daTaskdtl.SelectCommand.Connection = contimecollection > daOpCodes.SelectCommand.Connection = contimecollection > End Sub > > Private Sub TimeCollection_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load > setConnections() > getProjects() > RefreshCombos() > getopcodes() > End Sub > > Private Sub RefreshCombos() > setConnections() > getTasks() > getResources() > getTaskDetails() > > End Sub > > Private Sub getopcodes() > daOpCodes.Fill(dsTimeCollection, "opcode") > End Sub > > Private Sub getTaskDetails() > Try > daTaskdtl.SelectCommand.Parameters("@taskhdr_id").Value = cboTasks.SelectedValue > daTaskdtl.Fill(dsTimeCollection, "task_detail") > Catch exp As Exception > MessageBox.Show(exp.Message) > End Try > End Sub > > Private Sub getResources() > daResources.Fill(dsTimeCollection, "resources") > End Sub > > Private Sub getTasks() > daTasks.SelectCommand.Parameters("@project_id").Value = cboProjects.SelectedValue > daTasks.Fill(dsTimeCollection, "task_header") > End Sub > > Private Sub getProjects() > daProjects.Fill(dsTimeCollection, "Project") > End Sub > > Private Sub cboProjects_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboProjects.SelectedIndexChanged > RefreshCombos() > End Sub >>