Multiplas consultas

boa noite, pessoal;
preciso de uma ajuda em um aplicação onde tenho múltiplas consultas em um único banco de dados pois uso o AccesDataBasic e para acessar as consultas o OptionButton do E3 para selecionar 10 consultas
Sub OptionButton1_Change()

set cs = Screen.Item(“E3Browser1”)
if Value = true then
cs.SourceQuery = “Consulta2”
else
cs.SourceQuery = “Consulta1”
end if
cs.RetrieveE3QueryFields()
cs.Fields.Item(0).Width = 200
cs.Fields.Item(1).Width =150
cs.Fields.Item(2).Width = 150
cs.Fields.Item(3).Width = 150
cs.Fields.Item(4).Width = 150
cs.Fields.Item(5).Width = 150
cs.Fields.Item(6).Width = 200
cs.Fields.Item(7).Width = 200
cs.Fields.Item(8).Width = 200
cs.Fields.Item(9).Width = 200
cs.Fields.Item(10).Width = 150
cs.Fields.Item(11).Width = 150
cs.Fields.Item(12).Width = 150
cs.Requery()

End Sub

e assim por diante, mas nao estou tendo o retorno esperado

A Elipse Software criou este espaço com a ideia de estimular a troca de informações entre usuários de nossos produtos. Reservamo-nos o direito de não responder por este canal. Se você deseja suporte imediato, por gentileza, entre em contato pelo e-mail suporte@elipse.com.br ou pelos telefones (11) 3061-2828 / (21) 2430-5912 / (31) 4062-5824 / (41) 4062-5824 / (51) 3346-4699.

Elipse Software created this space aiming to stimulate the exchange of information among users of our products. We reserve the right to not respond through this channel. If you want immediate support, please contact us through the e-mail suporte@elipse.com.br or through our phone numbers (+55 11) 3061-2828 / (+55 21) 2430-5912 / (+55 31) 4062-5824 / (+55 41) 4062-5824 / (+55 51) 3346-4699.