请问我的声明哪里错了？

Question

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

Answer 1

你的rs不一定是 ADODB.Recordset 类型Private Sub F(s As ADODB.Recordset)End SubPrivate Sub Form_Load()Dim xx As ADODB.RecordsetF xxEnd Sub