我只能给这么多，没办法，他不让我给！高手帮帮我吧……

Question

Dim ShowCls As SlowShowCls.……

Answer 1

Show中的函数是Public定义的吗？

Answer 2

dim s as new Show
s.show
show一定要做成Public 的

Answer 3

Public Sub PReg(ByVal Regname As String, ByVal Idcard As String, ByVal Address As String, ByVal Pname As String, ByVal Photo As String, ByVal Pphoto As String, ByVal Fax As String, ByVal Mail As String)
On Error GoTo wherror
Dim Sql As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim objshow As Show
Dim Pass As String
Dim Tempp As Integer……If Not Rs.EOF Then
 Call objshow.Error(1)
Else……Public Sub Error(ByVal No As Integer)
On Error GoTo wherror
Dim Em As String没用
未设置对象变量或 With block 变量

Answer 4

声明变量后，一定要初始化实例，才能调用
Dim objshow As Show
set objshow = newe show
or
dim objshow as new show