Göra saker om recordsetet är tomt

Hej! :)

Jag gör ställer en fråga till databasen

sSQL = "SELECT [WebPg] AS TaskNo FROM [F0001].dbo.[Ord] WHERE [WebPg] = '" & sTaskNr & "'"
	Rs.Open sSQL, Conn
	
	If Rs.EOF then
	
		'Skapa en sträng av aktuellt datum och tid
		sFileNameDateTime = ConvertDateToString(Now())
		
		'Skapa filnamn för importresultat
		sOrderFileName="ORDERSR_" & sTaskNr & "_" & sFileNameDateTime & ".EDI"
		
		'Sökväg för orderfiler
		sOrderFilePath="\\server.mof.ad\program\visma\Visma\Business\EDI\F0001\ORDERSR\"
		
		'Skapa ett objekt
		Set oFS=CreateObject("Scripting.FileSystemObject")
		
		'Skapa rad
		sLine = "4;3;" & VbCrlf & "H;;1;" & sCustomerNr & ";;;;;;;;;" & sTaskNr & ";;;;;;" & VbCrlf & "L;;-;Dummy;;;;;"

		'Skapa fil för importresultat
		set sOrderFile=oFS.OpenTextFile(sOrderFilePath & sOrderFileName, 2, true)
		
		'Skriv rad
		sOrderFile.WriteLine(sLine)
		
		'Förstöra objekten
		sOrderFile.Close 
		set sOrderFile = Nothing
		
		'Kopiera filen
		oFs.CopyFile sOrderFilePath & sOrderFileName, "\\kingkong.mof.ad\program\Uppdrag Nu\Export\Arkiv\ORDERSR\"
		
		set oFS=nothing
	Else
		'Det fanns redan en arbetsorder i Visma kopplat till aktuellt uppdrag. Uppdraget komer inte att exporteras.
		'Det kommer göras lite andra saker, som att skriva till loggen mm

	End If

Gör jag detta på "rätt" sätt. Dvs normalfallet är att jag inte skall få ett recordset. Det är om det råkar finnas en post som har samma uppdragsnummer som det skall göras saker. Dvs ett undantag/fel...

Kanske jag som tänker fel, men det känns lite bakvänt, tycker jag.... :)

Mvh
Henrik