Intanto se fai da codice ti consiglio di usare l'ADODB
Progetto > Riferimenti > Microsoft ActiveX Data Object Library 2.8(o minori)

Cosi' l'IDE ti fornisce i metodi e le proprietà di quello che stai usando

Questo è un pezzo di codice che ti fa caricare su una "Combo1" tutte le professioni

codice:
Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    objConn.Open "STRINGA DATABASE"
    objRs.Open "SELECT * FROM Professioni", objConn
    Do While Not objRs.EOF
        Me.Combo1.AddItem objRs("nomeProfessione")
        objRs.MoveNext
    Loop
    objRs.Close
    Set objRs = Nothing
    objConn.Close
    Set objConn = Nothing
Questo invece è quando tu hai selezionato la professione

codice:
Private Sub Combo1_Click()
    Dim valore As Long
    Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    objConn.Open "STRINGA DATABASE"
    'SELEZIONO la chiave
    objRs.Open "SELECT * FROM Professioni WHERE nomeProfessione='" & Combo1.Text & "'", objConn
    If Not objRs.EOF Then
        valore = objRs("IDChiave")
    End If
    objRs.Close
    
    'Aggiorno la tabella clienti
    objRs.Open "SELECT * FROM Clienti WHERE nomeCliente='Pinco Pallino'", objConn, 3, 3
    objRs.AddNew
    objRs("ProfessioneID") = valore
    objRs.Update
    objRs.Close
    
    Set objRs = Nothing
    objConn.Close
    Set objConn = Nothing
End Sub