Android Question Using jRDC2 to Populate several labels

Sub CaptureVal(Val As Int) As ResumableSub
        Dim req As DBRequestManager = CreateRequest
        Dim cmd As DBCommand = CreateCommand("ultimafact_tblfacturaenc,Array(Val))
        'req.ExeucteQuery returns a HttpJob. The returned HttpJob is used as the sender filter.
        Wait For (req.ExecuteQuery(cmd, 0, Val)) JobDone(j As HttpJob)
        If j.Success Then
            req.HandleJobAsync(j, "req")
            Wait For (req) req_Result(result As DBResult)
            If j.JobName = "DBRequest" Then
                Dim result As DBResult = req.HandleJob(j)
                For Each records() As Object In result.Rows
                    lblname.text= records(result.Columns.Get("Name"))
                    lblage.text= records(result.Columns.Get("Age"))
                    blPhoneNo.text= records(result.Columns.Get("Phone"))
                    lblAccountNo.text= records(result.Columns.Get("Account"))
                    lblAccType.text= records(result.Columns.Get("AccType"))
                    lblBalance.text= records(result.Columns.Get("Balance"))
                Next
            End If
        End If
    Dim res As DBResult = Null
    Return res
End Sub