La operacion no esta permitida si el objeto esta cerrado!!! AYUDA!!!

[Berletzis]

Es codigo en visual basic, que tengo ke agregarle para ke ejecute mis querys!!!

Option Explicit
Public Sub CargaDIFProc()

Dim lstrArchivo As String
Dim ldobLineas As Double

lstrArchivo = LocalizaFile

If lstrArchivo = "" Then
Exit Sub
End If


If File_Existe(lstrArchivo) Then

strQuery = "DELETE FROM DDM_BOM_DIF"
Conn.Execute strQuery

ldobLineas = CuentaLineas(lstrArchivo)
Call ActualizaRegistros(lstrArchivo, ldobLineas)

Else
MsgBox "El archivo " + lstrArchivo + " no existe! "
End If

End Sub


-------------esta es mi conexion a l aBD

Public Sub Conexion_Abrir()
'Conexion a la base de datos sin ODBC declarado en win.1
Conn.Open "driver={SQL Server};server=nmxhqt21;UID=tuti;PWD=kiiop;databas e=hyt"

End Sub