编译错误：自程序或函数未定义

问题描述：

帮忙大家看一下那里错了~~
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

End Sub

Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Call Change
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.MovePrevious
If Adodc.Recordset.BOF = ture Then Adodc1.Recordset.MoveFirst
Call Change
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc.Recordset.EOF = ture Then Adodc1.Recordset.MoveLast
Call Change
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MoveLast
Call Change
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text2_Change()

End Sub

问题解答：

Call Change
有 Change 这个函数？