strsql = "SELECT B_sev.No_b, B_sev.No_emp, Boocking.Date_b, " _
        & "    Boocking.Date_sev " _
        & "   FROM B_sev, Boocking " _
        & " WHERE B_sev.No_b = Boocking.No_b And No_emp = '" & Text1.Text & "'"