Visual Basic - Mas fallos de Windows WP

Hola.

Seguimos con los fallos del XP usando visual basic 6.

He realizado una aplicación con Windows98 y funciona perfectamente.
La misma aplicación en XP no funciona.
He probado copiando el mismo código y el Visual Basic 6 al Windows XP y nada de nada, lo que indica que el fallo es del sistema operativo.

No admite update con archivos mdb contablas relacionadas.

ElseIf Index = 2 Then ' Aceptar
' Datalquiler.Recordset.Update

'Datalquiler.UpdateControls
Dim db As Database
Dim rs As Recordset
Dim SQL$

Set db = OpenDatabase("Videoclub.mdb")
SQL$ = "Select * From Alquiler "

Set rs = db.OpenRecordset(SQL$, dbOpenSnapshot)
With rs
.AddNew
.Fields("numcliente") = " & Val(Trim$(TxtAlNumCli2.Text))"
.Fields("NombreClien") = " & Val(Trim$(TxtAlCli.Text))"
.Fields("numPelicula") = " & Val(Trim$(TxtAlNumPeli2.Text))"
.Fields("Titulo") = " & Val(Trim$(TxtAlPeli.Text))"
.Fields("genero") = " & Val(Trim$(TxtAlgenero.Text))"
.Fields("Formato") = " & Val(Trim$(TxtAlFormato.Text))"
.Fields("precio") = " & Val(Trim$(TxtAlprecio.Text))"
.Update
End With

He probado el código con controldata y con rs, pero tampoco.
¿Tendremos que programa dependiendo de la versión de wi

YO NO HE TENIDO PROBLEMAS CON VISUAL BASIC Y WINDOWS XP TRABAJANDO CON BASES DE DATOS ACCES, ESO SI QUE UTILIZO EL ADODC Y EL JET 4.0, LO MAS SEGURO ES QUE TENGAS QUE ACTUALIZAR TU FORMA DE TRABAJO, RECUERDA QUE WINDOWS XP ES UNA PLATAFORMA MAS DESORRALLADA QUE WINDOWS 98 POR TANTO TU FORMA DE TRABAJAR DEBE AJUSTARSE A ESO, SUCEDE LO MISMO CON ACCES PARA BASES DE DATOS DE ACCES 97 UN JET 3.5 SE FUNCIONA SIN PROBLEMAS PERO PARA ACCES 2000 Y XP NO TE SIRVE, DEBES OCUPAR UN JET 4.0 Y A SU VEZ ESTE TE SIRVE TAMBIEN PARA ACCES 97. DEBES TENER EN CUENTA ESTO SIEMPRE.

SUERTE

Y como y donde consigo el jet 4.0, porque creo tener el mismo problema, pero soy nueva en esto de VB