insert problem?! kako da pronađem id preko prezimena

imam formu >>frmEvidencijaUpis<< na kojoj imam dva combobox i text polje.
cbKorisnik - koji vuče ime i prezime korinika iz tblOsobe.
cbTerapija - koji vuče polje terapija iz tblTerapija, i
txtDatum - za datum.
ja želim odabrati osobu u cbKorisnik, terapiju u cbTerapija i datum i upisati ih tblOsEvid(osobnaEvidencija).
fora je u tome što u tblOsEvid trebam mjesto imena i prezimena željene osobe upisati njegov idOsobe kojeg je ne znam kako isfurati.
greška koju prijavljuje je:
>>Microsoft office access can’t append all the records in the append query<<

Evo probaj jeli to to

ne nažalost nije. fora je u tome da moj insert nije točan:

Dim strSQL As String
strSQL = "Insert Into tblOsEvid ( idOsobe, Datum, Terapija) " & _
"Values('" & cbKorisnik & "','" & txtDatum & "', '" & cbTerapija & " ');"
DoCmd.RunSQL strSQL

on treba preko cbKorisnik koji se puni iz tblOsobna sa Prezimenom i imenom
ivuć value za idOsobe i to zajedno sa Datumom i Terapijom upisat u
tblOsEvid (osobnaevidencija)

Evo,možda je ovo to što tražiš:

Potpis

Jednog dana...