Hi Guys

I have recently taken over a VBA prog that seems to work with classes. I have never worked with classes before and it is a bit of a mystery to me. Here is some of the code.

Private moDatabase As Database
Private moRecordset As Recordset

Private Const COLUMN_SOURCE As Integer = 0
Private Const COLUMN_INVPG As Integer = 1
Private Const COLUMN_TELE As Integer = 2
Private Const COLUMN_QTY As Integer = 3
Private Const COLUMN_ORDERNR As Integer = 4
Private Const COLUMN_COMPANY As Integer = 5
Private Const COLUMN_CORRECTION As Integer = 6
Private Const COLUMN_RECDATE As Integer = 7
Private Const COLUMN_SHIPPOINT As Integer = 8

Property Let Source(ByVal bvFld As String)
moRecordset.Fields(COLUMN_SOURCE) = bvFld
End Property

Property Get Source() As String
Source = moRecordset.Fields(COLUMN_SOURCE)
End Property

Property Let InvPg(ByVal bvFld As String)
moRecordset.Fields(COLUMN_INVPG) = bvFld
End Property

Property Get InvPg() As String
InvPg = moRecordset.Fields(COLUMN_INVPG)
End Property

there is a let and get for each of the constants listed above. Can anyone help me understand what this is all about as I am a bit bamboozeled by it and have no one to ask.

There is also a lot of this stuff:

Property Get CDSRecordSet() As Recordset
Set CDSRecordSet = moRecordset
End Property

Public Sub SetUpdateMode()
moRecordset.Edit
End Sub

Public Sub SetAddMode()
moRecordset.AddNew


Many thanks
Locutus
End Sub