参照可能なクラスのプロパティを作成します。
プロパティの値を参照するにはGetステートメントを使用します。
ここではクラスの作成2で設定したしたプロパティを参照させます。

● サンプル　●

Private intData As Integer

Public Property Get DataNumber() As Integer
    DataNumber = intData
End Property

● 動作確認 ●

Sub Class_Sample3()
    Dim cn As New ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim cls As Class1
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = _
       "Provider=microsoft.jet.oledb.4.0;" & _
       "Data Source=d:\NorthWind.mdb"
    cn.Open
 
    Set rst = New ADODB.Recordset
    rst.Source = "商品"
    rst.ActiveConnection = cn
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic
    rst.Open

    Set cls = New Class1
    cls.DataNumber = rst.RecordCount
    MsgBox cls.DataNumber
    rst.Close
    cn.Close
    Set rst = Nothing
    Set cn = Nothing
    Set cls = Nothing
End Sub

(実行結果)
メッセージボックスに「商品」テーブルのレコード数123が表示されます。

● 補足説明 ●

　クラスの作成2の状態(Getを設定していない状態)で設定したプロパティを
メッセージボックスなどで表示させてもエラーになります。
つまり、LetとGetステートメントの両方を記述することで、値の設定と参照
が可能であるプロパティが作成されることになります。