Kan dette gøres nemmere

Min kode herunder tæller hvor mange poster der indenfor de kriterier jeg giver den..

Til forskel fra de 3 udtræk er status til sist.
Første udtræk er alle, anden med status 1 og tredie med status 0

Kan man ikke lave det nemmmere, så jeg tæller op én gang, og så "splitter" bagefter med hensyn til status?






strSQLAllOrder = "SELECT COUNT_BIG (No_) AS [Antall ordre] FROM dbo.[3S Company A_S$Sales Header] [3S Company A_S$Sales Header] WHERE [shipment date] BETWEEN '" & strFra& "' AND '" & strToday & "' and ([Sell-to Customer No_] = '45' or [Sell-to Customer No_] = '46' or [Sell-to Customer No_] = '47' OR [Sell-to Customer No_] = '48' OR [Sell-to Customer No_] = '49')"
Set RsAllOrder = Conn.Execute(strSQLAllOrder)
if rsAllOrder.EOF or rsAllOrder.BOF then
AllAntalOrderToday = "0"
else
AllantalOrderToday = RSAllOrder("Antall Ordre")
end if
RsAllOrder.close
set rsAllorder = Nothing

strSQLAllOrderFrigivet = "SELECT COUNT_BIG (No_) AS [Antall ordre] FROM dbo.[3S Company A_S$Sales Header] [3S Company A_S$Sales Header] WHERE [shipment date] BETWEEN '" & strFra& "' AND '" & strToday & "' and ([Sell-to Customer No_] = '45' or [Sell-to Customer No_] = '46' or [Sell-to Customer No_] = '47' OR [Sell-to Customer No_] = '48' OR [Sell-to Customer No_] = '49') and status = 1"
Set RsAllOrderFrigivet = Conn.Execute(strSQLAllOrderFrigivet)
if rsAllOrderFrigivet.EOF or rsAllOrderFrigivet.BOF then
AllAntalOrderTodayFrigivet = "0"
else
AllantalOrderTodayFrigivet = RSAllOrderFrigivet("Antall Ordre")
end if
RsAllOrderFrigivet.close
set rsAllorderFrigivet = Nothing

strSQLAllOrderAaben = "SELECT COUNT_BIG (No_) AS [Antall ordre] FROM dbo.[3S Company A_S$Sales Header] [3S Company A_S$Sales Header] WHERE [shipment date] BETWEEN '" & strFra& "' AND '" & strToday & "' and ([Sell-to Customer No_] = '45' or [Sell-to Customer No_] = '46' or [Sell-to Customer No_] = '47' OR [Sell-to Customer No_] = '48' OR [Sell-to Customer No_] = '49') and status = 0"
Set RsAllOrderAaben = Conn.Execute(strSQLAllOrderAaben)
if rsAllOrderAaben.EOF or rsAllOrderAaben.BOF then
AllAntalOrderTodayAaben = "0"
else
AllantalOrderTodayAaben = RSAllOrderAaben("Antall Ordre")
end if
RsAllOrderAaben.close
set rsAllorderAaben = Nothing