hola... usa esto...
Set cnn = New ADODB.Connection
cnn.CommandTimeout = 180
cnn.CursorLocation = adUseClient
' abrir conexion con el servidor
cnn.Open "sof1", "USERNAME", "PASSWORD"
debes declarar la variable cnn a nivel modulo como publica para que puedas accesarla desdecualquier form
Public cnn As ADODB.Connection
sof1 es una ODBC que debes crear con la informacion del servidor
en cnn.Open le pasas la ODBC el usuario y su password, con esto te conectas al servidor sin necesidad de dataenvirnment y datacontrol
necesitaras un recordset que lo puedes declarar igual que la conexion
Public rst As ADODB.Recordset
para ejecutar comando de sql como insert, dleet update usas
cnn.Execute strSQl
donde strSQL es la instruccion SQL
y para traer datos del servidor usas
Set rst = cnn.Execute(strSQL)
espero te ayud
saludos
isidroalmaguer(IA)