JSavio

Na verdade um programa que usa arquivo mdb funciona até mesmo em uma máquina sem o Access. Mas no caso de um MySql você vai precisar de um Servidor de Banco de Dados, que tanto pode ser estar máquina do usuário (e aí você tem que instalar na máquina dele), ou em outra máquina (e funcionar como Client/Server). O Access "faz-de-conta" que é um Servidor de Banco de Dados, mas é apenas um aplicativo útil para soluções simples.

A dica de alteração da DLL (Function) foi perfeita. Valeu! Quem sabe você também tem resposta para "MySQL com OLE sem ODBC". :D

Alguém sabe como faço para fazer uma conexão com MySQL usando OLE (sem ODBC)? Semelhante a que fiz para o SQL Server abaixo: Dim DBconn As New ADODB.Connection Dim RS As New ADODB.Recordset Dim SQL As String DBconn.Open "Provider=SQLOLEDB;Data Source=MyConnection;Initial Catalog=MyDB;User Id=MyUser;Password=MyPwd;" SQL = "select * from tabela" Set RS = DBconn.Execute(SQL) Do Until RS.EOF MsgBox RS("campo") RS.MoveNext Loop Tenho outra dúvida também: postada como DLL + SQL Server.

1. Fiz uma DLL (clsDB.dll) para acessar um Base de dados no SQL Server Public Function ConDB() As ADODB.Connection conDB.Open "Provider=SQLOLEDB;Data Source=myConnection;Initial Catalog=myDB;User Id=myUser;Password=myPWD" End Function 2. Depois um programa VB6 para usar a DLL como conexão do DB - como faço para instanciar a DLL? Quais erros existem na DLL e no programa? Private Sub cmdOK_Click() Dim DBc As clsDB Dim RS As New ADODB.Recordset Dim SQL As String Set DBc = New clsDB SQL = "select * from tabela" Set RS = DBc.ConDB.Execute(SQL) 'aqui deveria instanciar a DLL, mas aparece o erro "Object required" Do Until RS.EOF MsgBox RS("CampodaTabela") RS.MoveNext Loop End Sub Quando executo aparece a msg: "Object required". Qualquer ajuda será bem-vinda. Obrigado.