スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
参照可能なクラスのプロパティを作成します。プロパティの値を参照するには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ステートメントの両方を記述することで、値の設定と参照が可能であるプロパティが作成されることになります。