Hola a Todos:
Ya solucione mi problema que tenia.... por si a algun principiante como yo le pasa esto pues les digo que pasaba....
Como en el sistema que estoy realizando inicializo en un Modulo y de ahi mando llamar frmLogin y pues... la cuestion de como lo estaba llamando estaba mal....
pues yo hacia esto en el Modulo
Public cn As New ADODB.Connection()
Public Login As frmLogin
Public ConnectionObj As New Connect()
Sub Main()
cn = ConnectionObj.OpenConnection(user, password, server)
Login = New frmLogin()
Login.Show()
End Sub
y la forma correcta de hacerlo es asi
Public cn As New ADODB.Connection()
Public ConnectionObj As New Connect()
Sub Main()
Dim Login As New frmLogin()
cn = ConnectionObj.OpenConnection(user, password, server)
Application.Run(Login)
End Sub
Gracias nos vemos
Mostrar Mensajes
Gracias por toda tu ayuda ya logre bajarlo, por fin, verdad? 
