Visual Basic - error 91 en tiempo de ejecucion

HABER SI ALGUIEN ME PUEDE AYUDAR CON ESTE PROBLEMA...

ERROR "91" EN TIEMPO DE EJECUCION

VARIABLE DE TIPO OBJECT O LA VARIABLE DE BLOQUE WITH NO ESTA ESTABLECIDA

CON ESTE PROCEDIMIENTO SACO LOS NOMBRES DE LAS TABLAS DE UNA BD, EL CASO ES QUE ELIMINE UNAS TABLAS Y YA NO FUNCIONA MAS... ESO QUE ANTES FUNCIONABA A LA PERFECCION...

Private Sub VerTablas()
Dim Cadena As String
Cadena = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Path & ";Persist Security Info=False"
Conn.ConnectionString = Cadena
Conn.Open Cadena
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenDynamic
Rs.LockType = adLockOptimistic
Set Rs = Conn.OpenSchema(adSchemaTables)
Do While Not Rs.EOF
If Rs!TABLE_TYPE = "TABLE" Then
Combo1.AddItem Rs!TABLE_NAME
End If
Rs.MoveNext
Loop
CerrarRsConn
End Sub

PLEASE,, ES URGENTE....
ALGUIEN PUEDE DECIRQUE QUE PASA

Te falta setear la conexion
set conn= new Adodb.Connection

el problema es que ocupo la conexion que tengo en un modulo
mas o menos asi
public conn as nuw adodb.connection
public rs as new adodb.recordset

public sub Abrirconn(byval path as string)}
set conn= new adodb.connection

conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & path & ";persist security info=false"
conn.open

end sub

acaso estoy mal en esto?
bueno, el chiste es que solo ocupo la variable conn y rs como estan declaradas con public pues no tenia problema pero despues de que elimine unas tablas a la bd no funciona, ademas de eso compacte la bd y la repare desde acces pero aun asi no funciono

Perdon pero como solucionaste el problema?