iPaq mangler dll ved brug af ADOCE object.

Jeg har en iPaq H3660 med Pocket PC verison 3.0.11171

Nå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