1.装有多个Oracle客户端?
应该是装一个客户端,配置多个服务名.
2.你的VB界面上可以放个下拉列表控件,让用户自己选择服务名.
3.你的VB程序provider后面的Data Source根据用户输入来确定,如:
sConnect = "Provider=MSDAORA.1;Password=" & UserPass & ";User ID=" & UserName & ";" & _
                   "Data Source=" & cmbServer & ";Persist Security Info=True"