Parte 2: VB

Crie um novo projeto, no form desenhe 1 commandbutton, 1 MSFlexgrid, um textbox e um WebBrowser Control. Cole o código abaixo no form. Para usar digite a query no textbox e clique o botão, em alguns instantes o flexgrid será preenchido com os resultados.

Note que para funcionar vc deve estar conectado a internet.

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Private Sub Command1_Click()

    Dim URL As String
    
    ' Navega até a url
    Screen.MousePointer = vbHourglass
    DoEvents
    URL = "http://www.meuprovedor.com/minhapasta/access-server.asp?SQL=" & Text1
    WebBrowser1.Navigate URL
    
End Sub

Private Sub Form_Load()

    Command1.Caption = "Executa Query"
    
    With MSFlexGrid1
        .Cols = 1
        .Rows = 1
        .FixedCols = 0
    End With
    
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    Dim Cab As String, Dados As String
    
    ' Extrai os dados da página recebida
    Cab = WebBrowser1.Document.All.Cabecalho.InnerText
    Dados = WebBrowser1.Document.All.Dados.InnerText
    
    If Cab <> "NADA" And Dados <> "NADA" Then
        MostraDados Cab, Dados
        Screen.MousePointer = vbDefault
    Else
        Screen.MousePointer = vbDefault
        MsgBox "Nada a Exibir", vbInformation
    End If

End Sub

Sub MostraDados(ByVal Cab As String, ByVal Dados As String)

    Dim CORPO As Variant, CABEC As Variant, TMP As Variant
    
    CORPO = Split(Dados, Chr(255))
    CABEC = Split(Cab, Chr(254))
    
    With MSFlexGrid1
        ' Paralisa o update de tela
        LockWindowUpdate .hWnd
        
        ' Poe o cabeçalho
        .Cols = UBound(CABEC)
        .Row = 0
        For I = 0 To UBound(CABEC) - 1
            .Col = I
            .Text = CABEC(I)
        Next
        
        ' Poe os dados
        For I = 0 To UBound(CORPO)
            CORPO(I) = Replace(CORPO(I), Chr(254), vbTab)
            .AddItem CORPO(I)
        Next
        
        ' retorna ao normal
        LockWindowUpdate 0
    End With
    
End Sub