Globale Variablen VB6

Ist "con" denn vernünftig deklariert?

Hier der relevante Quellcode:

ModulSQL.bas

   Public sql_string As String


frmTest.frm

   Private Sub cmdTabelle_Click()
   
        sql_string = "SELECT * FROM tbl_Stammdaten_Photovoltaik ORDER BY Kundennummer"
        frmTabelle.Tabelle_Fuellen
        frmTabelle.Caption = "Stammdaten Photovoltaik tabellarisch"
       frmTabelle.lblTitle.Caption = "Stammdaten Photovoltaik"
       frmTabelle.DataGridStammdaten.Caption = "Stammdaten Photovoltaik"
       frmTabelle.Show
        End Sub

frmTabelle.frm

   Option Explicit
    Dim con As Connection
    Dim rs As Recordset

   Private Sub Form_Load()

    Set con = New Connection
        con.CursorLocation = adUseClient
        con.Provider = "Microsoft.Jet.OLEDB.4.0"
   
        con.Open ("datenbank/eem.mdb")
   
   End Sub

   Public Sub Tabelle_Fuellen()

    Set rs = New Recordset
    Set rs = con.Execute(sql_string)
        rs.Requery
   
   Set DataGridStammdaten.DataSource = rs

End Sub

Die Fehlermeldung lautet, wenn ich in frmTest.frm auf "Drucken" klicke:

Laufzeitfehler '91':

Objektvariable oder With-Blockvariable nicht festgelegt, in der Zeile: Set rs = con.execute(sql_string)

Wo liegt der Fehler?