variable tipo Object

[fesero]

Código:

'declaraciones globales
Public cnn As ADODB.Connection
Private WithEvents rstMos As ADODB.Recordset
Private sBus As String, bEnc As Boolean, JK As Double, bClick As Boolean
Public sNroInt As String, bEmp As Boolean, sCE As String

'comienzo del codigo
Private Sub Form_Load()
Set cnn = New ADODB.Connection
sFichero = App.Path & "\data\interf.mdb"
'conexion ADO para Access
If cnn.State <> 1 Then
    With cnn
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & sFichero & "';"
        .Open
        .CursorLocation = adUseClient
    End With
End If

una pregunta... cuando haces la conexion y por que usas el objeto desde que carga el form? si podes mostra mas de tu codigo