Testing For Empty Recordsets

operation placed here

The Code

<%

Dim myConn

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.mappath("/DB/Northwind.mdb") & ";"

myConn.Open

Dim myRS
Set myRS = Server.CreateObject("ADODB.Recordset")
myRS.Open "Employees", myConn,,,adCmdTable

If myRS.EOF Then

Response.Write "your message here"

Else

Response.Write "operation placed here"

End If

myRS.Close
Set objRS = Nothing

myConn.Close
Set myConn = Nothing
%>