Android Question httputils error - SOLVED

#Region  Project Attributes 
    #ApplicationLabel: apos
    #VersionCode: 1
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: true
#End Region

#Region  Activity Attributes 
    #FullScreen: true
    #IncludeTitle: false

#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
        Public SQL As SQLCipher
    Dim dbPass As String ="Dyno2008"
    Dim rm As DBRequestManager
    Dim cCnn As String ="http://192.168.0.6:17180/rdc"
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
     
    Private pnlStart As Panel
    Private nCckey As Int =1
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    rm.Initialize(Me, cCnn)
    If FirstTime Then
        Activity.LoadLayout("startscr")
       
        If File.Exists(File.DirRootExternal  ,  "kot.db") Then               
        SQL.Initialize(File.DirRootExternal , "kot.db",False,dbPass,"")   
    '    CallSubDelayed(Main,"CloseStartLogo")       
       
    Else              
        SQL.Initialize(File.DirRootExternal , "kot.db",True,dbPass,"")
        CreateTables       
       
    End If
   
    '    CallSubDelayed(Me,"SyncMasters")   
       SyncMasters       
    End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub  SyncMasters
    SyncPosControl
    SyncPosArea
'    SyncCaptainMaster
'    SyncItemaster
'    SyncItemcategory
'    SyncItemGroups
'
'    SyncUom
'    SyncWaiters
'    SyncTables
'   
    CloseStartLogo
End Sub

Sub CloseStartLogo
   
End Sub



 Private Sub  SyncPosArea
  Dim cmd As DBCommand
   
    cmd.Initialize
    cmd.Name = "select_posTAB"
    'cmd.Parameters = Array As Object(cU,cP,Main.nCckey)
   
    rm.ExecuteQuery(cmd, 0, "POSAREA")
   

End Sub
Private Sub  SyncPosControl
    Dim cmd As DBCommand
   
    cmd.Initialize
    cmd.Name = "select_poscontrol"
    'cmd.Parameters = Array As Object(cU,cP,Main.nCckey)
   
    rm.ExecuteQuery(cmd, 0, "POSCONTROL")
   

End Sub
 

Sub JobDone(Job As HttpJob)
    If Job.Success = False Then
        Log("Error: " & Job.ErrorMessage)
'        fx.Msgbox(Mform,Job.ErrorMessage,"error")
        'tvPos.Items.Clear
        If Job.JobName = "chk" Then
        '     fx.Msgbox(Mform,"No net","Login")   
        End If
        Job.Release
    Else
       
        If Job.JobName = "DBRequest" Then
            Dim result As DBResult = rm.HandleJob(Job)
       
           If Job.Tag = "POSCONTROL" Then
                Dim ListOfMaps As List
                ListOfMaps.Initialize
  
               
             For Each row() As Object In result.Rows
               Dim cc1 As Map=result.Columns
                Dim cc As Int=cc1.Size-1
                Dim n As Int=cc
               
              'For i = 0 To result.rows.Size - 1          
                  Dim m As Map      
                    m.Initialize
                    Dim  j As Int
                    For Each col In result.Columns.Keys
                     m.Put(col, row(j))                     
                   Next
                    ListOfMaps.Add(m)
                         
              Next
  
               
               DBUtils.InsertMaps(SQL, "POSCONTROL", ListOfMaps)
           End If
         
         
          If Job.Tag = "POSAREA" Then
                Dim ListOfMaps As List
                ListOfMaps.Initialize
  
               
             For Each row() As Object In result.Rows
               Dim cc1 As Map=result.Columns
                Dim cc As Int=cc1.Size-1
                Dim n As Int=cc
               
              'For i = 0 To result.rows.Size - 1          
                  Dim m As Map      
                    m.Initialize
                    Dim  j As Int
                    For Each col In result.Columns.Keys
                     m.Put(col, row(j))                     
                   Next
                    ListOfMaps.Add(m)
                         
              Next
               
               
               DBUtils.InsertMaps(SQL, "POSAREA", ListOfMaps)
           End If

  
        End If  
    End If
End Sub



private Sub CreateTables
    PosControlCreateTable
    PosAreaCreateTable
    CaptainCreateTable
    ItemCategoryCreateTable
    ItemGrupMasterCreateTable
    ItemMasterCreateTable
    TableMasterCreateTable
    WaiterCreateTable
End Sub





public Sub PosControlCreateTable
    DBUtils.DropTable(SQL, "POSCONTROL")
    'Create the CAPTAINMAST table which holds data about each ITEM.
    Dim m As Map
    m.Initialize
   
     
    ' CaptainPckey, CaptainName, PosAreaPckey, Pw

   
    m.Put("posname", DBUtils.DB_TEXT)
    m.Put("posaddress",DBUtils.DB_TEXT)
    m.Put("phone", DBUtils.DB_TEXT)   
    m.Put("lastcloseddate", DBUtils.DB_TEXT)
    m.Put("emaillinked", DBUtils.DB_INTEGER)
    m.Put("posaddress2", DBUtils.DB_TEXT)
    m.Put("smslink", DBUtils.DB_INTEGER)
    m.Put("cckey", DBUtils.DB_INTEGER)   
    m.Put("Rpckey", DBUtils.DB_INTEGER)       
   
    DBUtils.CreateTable(SQL, "POSCONTROL", m,"Rpckey")

   
End Sub
 
public Sub PosAreaCreateTable
    DBUtils.DropTable(SQL, "POSAREA")
   
    Dim m As Map
    m.Initialize
   
    m.Put("posareapckey", DBUtils.DB_INTEGER)
    m.Put("posareaname", DBUtils.DB_TEXT)
    m.Put("currentsessionpckey",DBUtils.DB_INTEGER)
    m.Put("gettable", DBUtils.DB_INTEGER)   
    m.Put("getcaptain", DBUtils.DB_INTEGER)
    m.Put("getwaiter", DBUtils.DB_INTEGER)
    m.Put("getpax", DBUtils.DB_INTEGER)
    m.Put("getphone", DBUtils.DB_INTEGER)   
    m.Put("Rpckey", DBUtils.DB_INTEGER)       
   
    DBUtils.CreateTable(SQL, "POSAREA", m,"Rpckey")

   
End Sub