Problemi connessione database

[lapiadina]

in un modo o nell'altro sono riuscito a sistemare la connessione in questo modo:

Response.Expires = 0
Dim rs, cn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
Cn.Open = "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("/mdb-database/database.mdb")
sql = "SELECT * FROM News ORDER BY id DESC"
....

ma il codice finale :

x = 0
Do until(x=5)
x = x + 1
Response.Write("titolo" & x & "=" & rs("Titolo") & "&link" & x & "=" & rs("Link"))
rs.MoveNext
If x<5 then Response.Write("&")
Loop

che significa?
Grazie per l'aiuto.