¿Cómo establecer una conexión con SQL Server 2008 en VB6.0? código
Busque adodc y arrástrelo al formulario
Seleccione la cadena de conexión en la cadena de conexión, luego copie la cadena resultante en el código y cambie la ruta al formato app.path & "\data.mdf"
En datesource ="select * from XXX"
adodc1.Refresh
Luego se conecta.