Funciones

[dwin]

hammmmmm

haber haber.. lo q comento vicentecamesella

si tengo un modulo.bas

ahi pongo todo mi codigo

private sub conectar()

Dim Cxn As ADODB.Connection
Dim AdoS As ADODB.Recordset
Dim CxnFac As String

Set Cxn = New Connection
Cxn.CursorLocation = adUseClient
CxnFac = "Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Port=3306;Option=131072;S tmt=;Database=dwin;Uid=root;Pwd=123456;"
Cxn.Open CxnFac ' Abrimos la conexion
Set AdoS = New Recordset
End Function

y tengo mi modulo

y ya nadamas llamo a mi sub

¿Como?

sub conectar

o

call conectar

nadmas pa salir de dudas jej e

y mejorar codigo.. :D