Semplice traduzione da JScript a VBscript

[Diddlina]

Ho questo codice:

<%@LANGUAGE = JScript%>
<%
    var Cn = Server.CreateObject("ADODB.Connection");
    Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("database.mdb"));

    var Rs = Server.CreateObject("ADODB.Recordset");
    Rs.Open("SELECT * FROM TabTest", Cn, 1);

    for (var i=0; i<Rs.Fields.Count; i++)
    {
        Response.Write(Rs.Fields(i).Name + "
");
    }

    Rs.Close();
    Cn.Close();
%>

'traducendolo' in VBScript, così:

...
Set ObjRS = Server.CreateObject("ADODB.Recordset")
StrSQL = "SELECT * FROM Tab1"
	ObjRS.Open StrSQL, ObjConn, adOpenStatic, adLockReadOnly, adCmdText	
	response.Write("N° campi: "&ObjRS.Fields.Count&"
") 
	For i = 0 To ObjRS.Fields.Count
		Response.Write(ObjRS.Fields(i).Name & "
")
		i = i + 1
	Next 
ObjRS.Close
Set ObjRS = Nothing
...

ottengo l'elenco dei campi uno sì e l'altro no. Sbaglio l'incremento?