acesso a banco de dados remoto

galera sou novo no forum não sei se vai dar pra entender mas vamos la...
estou tentando acessar um banco de dados mysql remotamente atravez de aplicação visual basic, estou usando o exemplo do marcoratti:

Dim rs As Object ´Recordset
Dim ds As Object ´RDS.DataSpace
Dim df As Object ´RDSServer.DataFactory


3- No evento Load do formulário padrão escreva o código para criar o objeto RDS

Private Sub Form_Load()
Set ds = CreateObject(´RDS.DataSpace´)
Set df = ds.CreateObject(´RDSServer.DataFactory´, ´http://macorati´)
End Sub


4- Agora no evento click do botão de comando inclua o código para acessar base de dados usando o dsn pubs:

Private Sub Command1_Click()
´retorna um recordset via HTTP.
Dim strCn As Variant, strSQL As Variant
strCn = ´dsn=pubs;uid=sa;pwd=;´
strSQL = ´select * from authors´
Set rs = df.Query(strCn, strSQL) *********erro************
Debug.Print rs(0) ´imprime na janela de depuração a linha o codigo do autor
End Sub

essa linha esta dando erro ´8447´ erro de servidor de internet alguem sabe o motivo?
Set rs = df.Query(strCn, strSQL)

valeu pela força galera