Excel VBA access database communcation

[DanSMT]

Is it possible to select and item via Excel VBA from an access database list (cell with multiple item selection options)

My intent would be to select one of the two options from the field in access via excel vba. I am trying to build an interface that will select the option for a user when click a button.

 

[DanSMT]

Current code as follows;

Dim cnn2 As ADODB.Connection 'dim the ADO collection class
Dim rst As ADODB.Recordset 'dim the ADO recordset class
Dim dbPath1 As String
Dim x As Long, j As Long
dbPath1 = "C:\Users\dans\NEW RGA UI\Targets\RGA.accdb"
Set cnn2 = New ADODB.Connection ' Initialise the collection class variable
cnn2.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath1
Set rst = New ADODB.Recordset 'assign memory to the recordset
rst.Open Source:="RGA", ActiveConnection:=cnn2, _
CursorType:=adOpenDynamic, LockType:=adLockOptimistic, _
Options:=adCmdTable
With rst
.AddNew
    .Fields("RGA Manual #") = TBrga
    .Fields("Date issued") = TBdoc
    .Fields("Open/Close") = 1 'this is the open close section that I am trying to figure out
    .Fields("Customer") = CBcn
    .Fields("Customer Contact").Value = TBcc
    .Fields("Customer PO #").Value = TBcpo
    .Update
End With
rst.Close
cnn2.Close
Set rst = Nothing
Set cnn2 = Nothing
On Error GoTo 0
Application.ScreenUpdating = True