Dim strSuit As String
strSuit = ” steel 1/3′ ”
strQuery = “SELECT tblInfo.fldSuit, tblPayments.fldSuit, tblInfo.fldRCR, tblPayments.fldPDate, tblPayments.fldPaid, tblPayments.fldBalance, tblPayments.fldCashier, tblPayments.fldRecNum, tblPayments.fldVchNum
FROM tblInfo INNER JOIN tblPayments ON tblInfo.fldSuit = tblPayments.fldSuit
WHERE tblPayments.fldSuit='” & strSuit & “‘”
