Un millon de gracias Soplo!!!!!! ya lo he conseguido!!! tenia que agregar % en la lista de Host para que aceptara la conexion!
Pero como no! los errores en programacion nunca se acaban sobre todo con un inexperto como yo....
No entiendo si he declarado una variable por que me da el error:
Ahora os pongo el codigo... pero yo no veo error..
Option Explicit
Dim Conexion As ADODB.Connection
Dim rsBase As ADODB.Recordset
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Conexion.Open ("Provider=MSDASQL;Server=.;Data Source=Apogeus")
Set rsBase = Conexion.Execute("SELECT * FROM TU_TABLA")
Text1.Text = rsBase("Nick")
Text2.Text = rsBase("Mail")
End Sub
Saludos!