object variable not found

i am trying to call a form from another form
here is a piece of code of what i am doing

there is a form called changetext. in the code i am trying to call another form

Private Function ImportExcelFile(ByVal DBFILE As String) As Collection
    Dim col As New Collection
    Dim rec As clsDataRecord
    
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim s As String
    Dim i As Integer
    'Dim oform As Object
    'Set oform = New TableSelectForm
    
    ' Open the connection to an Excel file
     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & DBFILE & ";" & _
             "Extended Properties=""Excel 8.0; HDR=No; IMEX=2;"""
    
    Set rsTables = cnn.OpenSchema(adSchemaTables)
       'here is where i call the tableselcetform 
TableSelectForm.Show vbModeless

it goes to the useer form intialise method whose code i have it as

Public Sub UserForm_Initialize()
TableSelected = ""

cbTables.Clear
'after thsi statement i get the error
While Not rsTables.EOF
If rsTables![TABLE_TYPE] = "TABLE" Then
' Enumerate tables only; omit views, etc.
cbTables.AddItem rsTables![TABLE_NAME]
End If
rsTables.MoveNext
Wend

If cbTables.ListCount > 0 Then
' Select the first item
cbTables.ListIndex = 0
End If
End Sub

as soon as it goes into rstables.EOF it does not find anything in it and it give an error saying
Run time error 91
object variable or with block variable not set
i have set rstables as public or ado recordset type in form change text

i dont know what is wrong
any idea some one.

thanks

[Alex]

Where and how rsTables variable is defined?

Make sure it is at a global module level and defined as Public...

retables is in the global module table and PUBLIC...


here is it where i have declared.
Option Explicit

Public nUserUnit As Integer
Public dRefX, dRefY, dRefX1, dRefY1 As Double
Public dLeftRightMargin, dTopBottomMargin As Double
Public dXCoord, dYCoord As Double
Public dFontSize As Double
'Dim dFontface As FontList
Dim sFileName As String
Public c As Color
'Dim dhalignment As cdrAlignment
'Dim dvalignment As cdrVerticalAlignment
Dim iFile As Integer, FileName As String
Dim DBFILE As String
Dim oform As TableSelectForm
Public strLog As String
Public CurRecord As Long
'Public sArray() As String
Dim txtalignment As cdrAlignment
Public Records As Collection
'declaring an instance for tableform

' rstables variable delcared and public....
Public rsTables As ADODB.Recordset
Public TableSelected As String


'Collection Variables
Dim collPages As Pages
Dim collShapes As Shapes
Dim sLabel As Shape

what am i doing wrong.

[Alex]

Well, everything looks correct. Are you sure that you are calling ImportExcelFile function and not, say, ImportAccessFile which also calls that form but fails to set rsTables variable?

[Alex]

Also put "Option Explicit" in every code module and form code just to make sure you are not making a typo error somewhere...