我要寫clinet/server運用activex.exe，connection, recordset 到(編號：8224)

執行時會出現沒有設定物件變數或with區塊變數
程式如下:
(寫在物件模組中server)
Private cn As Connection
Private rs As Recordset
Public Sub Main()
Set cn = New Connection
cn.ConnectionString = = "dsn=miss"
cn.Open
Set rs = New Recordset
rs.Open "studtable", cn, adOpenStatic, adLockOptimistic
End Sub
Public Property Get ttt() As Variant
ttt = rs
End Property
(clinet)
Dim a As myserver31.kk1
Private Sub Form_Load()
Set a = New myserver31.kk1
Set DataGrid1.DataSource = a.ttt
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set a = Nothing
End Sub