Code:
Set rsReqDetail = New ADODB.Recordset
'rsReqDetail.Open "Select xbr_mstr.xbr_req_nbr, xbr_mstr.xbr_part, pt_mstr.pt_desc1, pt_mstr.pt_desc2, xbr_mstr.xbr_jcode, xbr_mstr.xbr_lot, xbr_mstr.xbr_lot_size, xbr_mstr.xbr_expiry From xbr_mstr, pt_mstr where xbr_mstr.xbr_req_nbr = '" & cboReqNbr.Text & "' and xbr_part = pt_part", conn, adOpenStatic, adLockOptimistic
rsReqDetail.Open "Select xbr_mstr.xbr_req_nbr, xbr_mstr.xbr_part, xbr_mstr.xbr_jcode, xbr_mstr.xbr_lot, xbr_mstr.xbr_lot_size, xbr_mstr.xbr_expiry From xbr_mstr where xbr_mstr.xbr_domain = '" & global_domain & "' and xbr_mstr.xbr_req_nbr = '" & cboReqNbr.Text & "' ", conn, adOpenStatic, adLockOptimistic
Set rsLabelQty = New ADODB.Recordset
rsLabelQty.Open "Select xbrd_category, xbrd_dft_qty, xbrd_qty, xbrd_temp From xbrd_det where xbrd_domain = '" & global_domain & "' and xbrd_req_nbr = '" & rsReqDetail!xbr_req_nbr & "' and xbrd_type ='F' and xbrd_dev = '" & fplant & "' and xbrd_status = 0 ", conn, adOpenStatic, adLockOptimistic