Sub viper_weed()
Dim cn, rs
Set cn = CreateObject("ADOCE.connection.3.0"

cn.Open "My Documents\weedmanagerdata.cdb"
Set rs = CreateObject("ADOCE.recordset.3.0"

rs.Open "HHreg", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("parkcode"

= "parkcode"
rs.Fields("weedname"

= "weedname"
'get page control values
rs.Fields("parkcode"

= application.map.layers("viper_weed.shp"

.Forms("EDITFORM"

.Pages("Page1"

.Controls("park_ID"

.Value
rs.Fields("weedname"

= application.map.layers
("viper_weed.shp"

.Forms("EDITFORM"

.Pages("Page2"

.Controls("cbx_type"

.Value
rs.Update
' 'Close connection and recordset
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
In relation to ADOCE it should be already registed on the device if not you will have to register it to do this give me your email address and I will send you a copy of the registration program for updating the registry on your handheld. Experience is a wonderful thing. It enables you to recognize a mistake
when you make it again.