请问我的声明哪里错了？

Question

声明Private Sub ExpandPurchaseCollectTable(rsPLM As ADODB.Recordset)调用处：ExpandPurchaseCollectTable(rs) 但是报错：运行时错误13，类型不匹配

Answer 1

你的rs不一定是 ADODB.Recordset 类型
Private Sub F(s As ADODB.Recordset)
End Sub

Private Sub Form_Load()
Dim xx As ADODB.Recordset
F xx
End Sub