What's wrong in that code ?

[AlexRezid]

Hi all !!

I need some help to debug this VB code that is included in an HTML web page


<SCRIPT language=vbs>
<!--
Sub TestGo(Value As Integer)
Dim i As Integer
Dim strsql As String
set cnn = CreateObject("ADODB.Connection")
set Record2 = CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM InfosClients"

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0,
User ID=Admin,
Data Source=C:\Mes documents\Fichier Client\Client_db.mdb,
Mode=Share Deny None,
Extended Properties=&quot;&quot;,
Persist Security Info=False,
Jet OLEDB:System database=&quot;&quot;,
Jet OLEDB:Registry Path=&quot;&quot;,
Jet OLEDB:Database Password=&quot;&quot;,
Jet OLEDB:Engine Type=0,
Jet OLEDB:Database Locking Mode=1,
Jet OLEDB:Global Partial Bulk Ops=2,
Jet OLEDB:Global Bulk Transactions=1,
Jet OLEDB:New Database Password=&quot;&quot;,
Jet OLEDB:Create System Database=False,
Jet OLEDB:Encrypt Database=False,
Jet OLEDB:Don't Copy Locale on Compact=False,
Jet OLEDB:Compact Without Replica Repair=False,
Jet OLEDB:SFP=False"

Record2.Open strsql,cnn
Record2.MoveFirst
Record2.Move(Value-1)
Set Me.Recordset = Record2
End Sub
-->
</SCRIPT>


What I want to do is going to the "Value" record in my access DB automatically.

Could someone help to debug this script ?

Thanks

Alex