iPaq mangler dll ved brug af ADOCE object.
Jeg har en iPaq H3660 med Pocket PC verison 3.0.11171Når nedenstående kode afvikles får jeg en fejl:
-------------------------------------------------------------
Script Error
------------
ADOCE Resource DLL \Windows\msdaerDAdll is not installed on this device.
Line: 4
-------------------------------------------------------------
function Button1_Click()
Dim rs
Set rs = CreateObject("ADOCE.RecordSet.3.0")
rs.open "kmreg", "\kmreg.cdb", adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Do While Not rs.EOF
List1.AddItem rs.Fields("firstfield").Value
rs.MoveNext
Loop
End If
rs.Close
set rs = Nothing
end function