conexion de una BD utilizando un modulo en VB 6.0

[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.