S = "SELECT nzak,dataz,cpuz,sumz,statz,oper FROM zakkomp Where statz='" & vzak & "' Or statz='" & vzak1 & "' Or dataz LIKE " & "'*" & vdata & "*'"
совместить два запроса:
S = "SELECT nzak,dataz,cpuz,sumz,statz,oper FROM zakkomp Where statz='" & vzak & "' Or statz='" & vzak1 & "'"
S1 = "SELECT nzak,dataz,cpuz,sumz,statz,oper FROM zakkomp Where dataz LIKE " & "'*" & vdata & "*'"
S = S & " UNION " & S1
Set R = D.OpenRecordset(S)
тоже не прокатывает ...

подскажите что я делаю не так и как это исправить.