请问:VB中运行时错误:57097是指什么错误啊,请各位帮帮忙啊.
图片:

点增加时:

下面是出现错误的窗体代码:
窗体FrmWWCK1
Private Sub Form_Load()
Set F0 = FrmWWCK0
CLPara1.GetPara F0.CLPara1
CLToolBar21.Active
CLFrame1.LabCaption = F0.Caption
CLComboSW.sql = "SELECT BH,MC FROM T60SWYY WHERE BH='" & CLPara1.UserForm & "' ORDER BY BH"
If CLPara1.UserForm = "WWCK" Then
CLCombo2.InputField = "S40BH"
CLCombo2.DispField = "S40BH"
CLCombo2.sql = "SELECT S40BH,S40MC AS S60MC FROM S40CSDA ORDER BY S40BH"
End If
Screen.MousePointer = 0
End Sub
Private Sub Form_Resize()//运行到这里就出错了.
CLPara1.ResizeForm
End Sub

窗体FrmWWCK1是基于窗体FrmWWCK0的.
窗体FrmWWCK0的窗体代码:

好的,谢谢!!!