使用DATA对象参数遇到的问题：

想使用DATA对象参数来使函数的接口性更好，可是失败了，想知道为什么？
类模块Class_FormSet中：Public Function ShowDBData(f As Form, Datatemp As Data, DB_Name As _
String, RecordTable As String)
DB_Name = App.Path + "\" + DB_Name: RecordTable = "Member"
With f
    .Datatemp.DatabaseName = DB_Name'出错就在这一段
    .Datatemp.RecordSource = RecordTable
End With
End FunctionFORM中
Option Explicit
Dim FormSelf As Class_FormSetPrivate Sub Form_Load()
Me.Show
Set FormSelf = New Class_FormSet
FormSelf.ShowDBData Me, Data1, "Student_Data.mdb", "Member"
End Sub出错提示的那一段显示：
类不支持该属性或方法。明明用了DATA对象，为什么还提示出错呢，想请教哪里出了问题。改成CONTROL或OBJECT都失败了。我希望答案是能针对我这里的方法进行回答，即用DATA对象作为参数传递的问题，而不是用一种全新的方法来回答。