>> 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 >>>>