primero ni idea para que cerras la conexion a la base, vos me diras...siempre se deja conectado hasta que se sale del formulario principal, pero vos lo cerras desde el form2..¿y si tenes que conectarte de nuevo?...pero te digo lo mejor siempre es empezar desde el Sub_Main de un modulo...por ejemplo:
Código vb:
Ver originalOption Explicit
Public mConexion As ADODB.Connection
Sub Main()
On Error GoTo ErrorConexion
Set mCmd = New ADODB.Command
mConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LinkC.mdb;Persist Security Info=False"
mConexion.Open
If App.PrevInstance = True Then End
frmInicio.Show
Exit Sub
ErrorConexion:
MsgBox "Error No se Pudo Conectar a la Base de Datos", vbCritical
End Sub
Public Sub Desconectar()
On Error Resume Next
mConexion.Close
Set mConexion = Nothing
End Sub
saludos.