Antes que nada seria bueno que muestres tu codigo para poderte ayudar en la parte donde este tu error, pero de todas formas te mostrare como es que yo uso una conección por medio de ADO.
1- Agregar la referencia de "Miscrosoft ActiveX Data Objects 6.0 Library"
2. Luego en declaraciones colocar lo siguiente
Código vb:
Ver originalDim cn as Connection
Dim rs As Recordset
En el load form colocas:
Código vb:
Ver originalSet cn = New Connection
cn.ConnectionString = "DRIVER={tu driver SQL}; SERVER=localhost;DATABASE=tu_DB;USER=usuario;PASSWORD=tu_contraseñaDB;port:Puerto;OPTION=3"
cn.CursorLocation = adUseClient
cn.Open
Si tienes dudas sobre la sintaxis de coneccion puedes visitar
http://www.connectionstrings.com/ para guiarde según el tipo de conector que uses y Server DB
Luego en el evento command o el que ejecute la consulta asi:
Código vb:
Ver originalSet rs = New Recordset
rs.Open "AQUI TU CONSULTA SQL", cn, adOpenDynamic, adLockOptimistic
text1.text = rs.fields(1)
.
.
.
Para el caso si fuera un solo resultado, pero si fueran más puedes usar un loop