… = DataSource[…] (gb.db2.form)

Dim hDataSource As DataSource
Dim aVariant As Variant
aVariant = hDataSource [ Key As String ]

Return the value of the Key field of the current record.