Cita:
Iniciado por chicho28 
Lo corregi de esta forma!
**********************
Modulo
******
Public con As Connection
Public Sub Main()
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
con.Open
End Sub
********
Formulario
********
Private Sub Form_Load()
Set rs = New ADODB.Recordset
rs.Open ("select * from clientes"), con, adOpenStatic, adLockOptimistic
Text1.Text = rs.Fields("nombre")
End Sub
////////////////////////////////////
Ahora no sale ningun error, y en cambio ejecuta y regresa de nuevo al modo de diseño y no se ve para nada el formulario.
Hay dos cosas, primero una vez abierta la conexión tienes que mostrar el formulario de inicio (en el que quieres mostrar el campo nombre) y segundo, no estás declarando la variable 'rs'
El fin, en el módulo .bas debería de quedar así:
Código:
Public con As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub Main()
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
con.Open
Form1.Show
End Sub
Suponiendo que el nombre del formulario sea 'Form1'
