Calling an option group from a subform using ADO

[mmath]

Hello!

Here is the code I'm working with:

Private Sub opbAddNew_Click()
 
Dim rstRiskRating As ADODB.Recordset
Set rstRiskRating = New ADODB.Recordset
 
With rstRiskRating
    .ActiveConnection = CurrentProject.Connection
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "Select * from tblRiskRating"
    .AddNew
        !PropertyID = Forms!frmNewRiskRating.txtPropertyID
        !ValidDate = Forms!frmNewRiskRating.txtValidDate
        !Operational = Me!sfrmSponMgmt.optOperational
    .Update
End With
 
rstRiskRating.Close
Set rstRiskRating = Nothing
 
DoCmd.Close
 
End Sub

The line in bold is intended to populate the field [Operational] in a table. This is an option group (valued 1 through 5) called "optOperational" on subform "sfrmSponMgmt."

My problem is simple, I can't seem to find the correct syntax to link the option group selection to the value to be added to the table. Is my syntax wrong? Or is there some trick to fetching a value from an option group that I'm unaware of?

Any help would be greatly appreciated.

Thanks,

Michael

[mmath]

Never mind. I solved the problem by replacing the bolded line with this:

!Operational = Form_frmNewRiskRating.sfrmSponMgmt.Controls(optOpe rational)

Thank you.

[NeoPa]

Thanks for posting back with the solution.