Private Sub Test_Click()
Dim RS2 As ADOCE.Recordset
Dim SQL As String
Dim InputText As String
Dim ColumnNames As String
Dim ColumnValues As String
Dim ParamName As String
Dim MyVar As String
Set RS2 = CreateObject("ADOCE.Recordset.3.1")
RS2.Open Test, "\My Documents\Housing.cdb"
' UPDATE test INNER JOIN HousingEstates ON (test.BlockName = HousingEstates.Block)
' AND (test.ContractArea = HousingEstates.ContractArea) SET;
'SQL = "SELECT * FROM ContractAreas INNER JOIN HousingEstates"
'SQL = SQL & " ON ContractAreas.ContractArea = HousingEstates.ContractArea"
'SQL = SQL & " WHERE ContractAreas.ContractArea = 2"
'RS("Blockname") = Block
Okay... I have to admit I've never developed anything for a Pocket PC yet so I'm no expert on this one... So are you actually developing the app on the Pocket PC itself? and does that mean that you don't have the option of stepping through the code that you write?
As for the RS and Block variables I asked about... I still don't see any declarations for them in the expanded code... The code doesn't have a Set statement anywhere for your RS variable... If you're declaring a second Recordset object (I see you using RS.Movenext) then I'm pretty sure you're going to need to declare it as such and use a SET statement to allocate it some memory...