Android Question BluetoothAdmin and insecure connections

'*** Starter
Sub Process_Globals 
       Dim cmp20 As Serial
       Dim printer As TextWriter
end sub

'*** Main
Sub StartPrinter
    Dim PairedDevices As Map
    Dim L As List
    Dim Res As Int

    'ToastMessageShow("Start Printer.....",True)

    PairedDevices.Initialize

    Try
        PairedDevices = Starter.cmp20.GetPairedDevices
    Catch
        Msgbox("Getting Paired Devices","Printer Error")
        Starter.printer.Close
        Starter.cmp20.Disconnect
    End Try

    If PairedDevices.Size = 0 Then
        Msgbox("Error Connecting to Printer - Printer Not Found","")
        Return
    End If

    If PairedDevices.Size = 1 Then
        Try
            Starter.cmp20.ConnectInsecure(Starter.btAdmin,PairedDevices.Get(PairedDevices.GetKeyAt(0)),1)
        Catch
            Msgbox("Connecting","Printer Error")
            Starter.printer.Close
            Starter.cmp20.Disconnect
        End Try
    Else
        L.Initialize

        For i = 0 To PairedDevices.Size - 1
            L.Add(PairedDevices.GetKeyAt(i))
        Next

        Res = InputList(L, "Choose device", -1)

        If Res <> DialogResponse.CANCEL Then
            Starter.cmp20.Connect(PairedDevices.Get(L.Get(Res)))
        End If
    End If 
End Sub