Ayuda con RS

[lexus]

Código:

set rs=Server.CreateObject("ADODB.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
set rs3=Server.CreateObject("ADODB.Recordset")
set conn=Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("databasesdb1.mdb")
cliente=UCASE(request.form("tCliente"))
fecha_act=request.form("hfFecha")
fecha_sum=request.form("tFecha2")
'fecha_act=CDate(fecha_act)
fecha_sum=CDate(fecha_sum)
albaran=UCASE(request.form("hf"))

SQL2="Insert into [pedidos-principal] ([fecha de la grabación],[fecha de suministro],cliente,[número de albarán],[preparado por]) values ('"&fecha_act&"','"&fecha_sum&"','"&cliente&"','"&albaran&"','Miguel')"
set rs2=conn.execute(SQL2)
SQL3="Select * from [pedidos-principal] where [número de albarán]='"&albaran&"'"
set rs3=conn.execute(SQL3)
' esto para verificar qeu si exista el dato en la base de datos
If not rs3.eof then 
pedido=rs3("pedido número")
response.write "<br>Fecha actual: "&fecha_act
response.write "<br>Fecha de suministro: "&fecha_sum
response.write "<br>Pedido número: "&pedido
else
response.write "no hay dato"
end if 

espero te sirva