_da = New OleDb.OleDbDataAdapter("SELECT AAC_EVENT.RES_ID," & _
  "AAC_EVENT.DATE_STAMP, AAC_EVENT.EVENT_TYPE, AAC_EVENT.SUB_EVENT_TYPE," & _
  "DAGENT.DUR_SIGNON,AAC_EVENT.DURATION(, AAC_EVENT.TIME_STAMP, USERS.TEAM_NUM," & _
  "USERS.FIRST_NAME, USERS.LAST_NAME) "FROM(AAC_EVENT, DAGENT, USERS) "WHERE" & _
  "AAC_EVENT.RES_ID = DAGENT.EXT_NUM AND AAC_EVENT.DATE_STAMP = DAGENT.UDAY AND" & _
  "DAGENT.EXT_NUM = USERS.EXT_NUM AND ((AAC_EVENT.DATE_STAMP = 1040317) AND (" & _
  "AAC_EVENT.EVENT_TYPE = 2 OR AAC_EVENT.EVENT_TYPE = 3) AND (USERS.TEAM_NUM =" & _
  "16) OR (AAC_EVENT.DATE_STAMP = 1040317) AND (USERS.TEAM_NUM = 16) AND (" & _
  "AAC_EVENT.SUB_EVENT_TYPE = 1 OR AAC_EVENT.SUB_EVENT_TYPE = 2))", ConnAspect)
        Try
            _da.Fill(_ds, "USERS")
        Catch ex As System.Exception
            MsgBox(ex.Message)
            Return
        End Try