Para complemetar lo que te dijo GeoAvila:
Código:
Dim cn as new ADODB.connection
Dim Rs as New Recordset
En el Load de la forma:
cn.open "tu cadena de conexion"
set rs=cn.execute("select nombre,direccion,telefono from mi_tabla where tucondicion")
Text1.text=rs!nombredelcampo o Text1.text=rs(0)
Claro agrega las referencias a tu proyecto Microsoft ActiveX Data Objects 2.xx
y asi sucesivamente