Android Question Need help connecting to MSSQL

op=request("op")
select case op
case "":mysql="select * from users"
case "getuser":mysql="select username,useremail from users where userid="&request("id")
case "deluser":mysql="delete from users where userid="&request("id")
end select

sql.CommandText=mysql
set myrs=sql.Execute

Sub JobDone(Job As HttpJob)
    If Job.Success = False Then
        Log("Error: " & Job.ErrorMessage)
    Else
        If Job.JobName = "DBRequest" Then
            Dim result As DBResult = reqManager.HandleJob(Job)
            'reqManager.PrintTable(result)
            For Each records() As Object In result.Rows
                        ' Now Load info
                        Dim bookid As String
                        bookid = records(result.Columns.Get("name"))


ListView1.AddSingleLine(bookid)
                    Next
        End If
    End If
    Job.Release
End Sub