set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base.mdb")
strsql ="SELECT * FROM personal ORDER by emp_apellido"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open strSQL, oConn,3,1