vb运行提示实时错误91 对象变量或with块变量未设置

Private Sub Cmd3_Click()
Dim a As Ccc
constr = App.Path & "\" & "fp.mdb"
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & constr
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
con.Open constr
Set rs = New ADODB.Recordset
sql = "SELECT order.* FROM [order];"
rs.Open Trim$(sql), con, adOpenDynamic, adLockOptimistic '得到记录

If Not rs.EOF Then
a.ExporToExcel rs 出错的地方
Text1.Text = "导出数据成功!"
Else
MsgBox "无EXCEL导出数据"
Text1.Text = "导出数据失败"
End If

Sub ExporToExcel(Rs_Data As ADODB.Recordset)
IrowCount As Integer
'If BlnCanoutput = False Then
' MsgBox "对不起，你没有数据输出的权限！", vbOKOnly + vbInformation, "系统提示"
' Exit Sub
'End If
Dim IcolCount As Integer

Dim xlApp As New Exce

vb提示实时错误75 我运行VB程序时出现实时错误‘91’ 对象变量或with块变量未设置 vb中 实时错误 对象名无效 vb 实时错误91 VB实时错误‘91’ vb 实时错误‘91’对象变量或 With 块变量没有设置 VB实时错误'424'要求对象 vb 实时错误 '424' 要求对象 急急急 vb~~~请教 实时错误"424"要求对象 !!!!!!!vb实时错误424 要求对象.有分跪求帮忙啊!!!!!!!!!