hoi

Ik wil in een keuzelijst een waarde uit een tabel kiezen en eveneens een nog niet bestaande waarde kunnen ingeven die dan meteen bewaard wordt in de tabel die aan deze keuzelijst vasthangt.
Een stuk code heb ik al geschreven maar hij geeft een fout
op  :  rst.Fields("Richting").Value = NewData (zie bijna onderaan)

Private Sub Keuzelijst_met_invoervak107_NotInList(NewData As String, Response As Integer)
    'De gebruiker kan een richting die hij ingeeft,
    'toevoegen in de tabel tblrichting.
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset

    Dim bytDummy As Byte
    Dim strMsg As String

    strMsg = "Deze richting komt niet voor in de keuzelijst Sara.... " & _
        "Wenst U deze toe te voegen?"
    bytDummy = MsgBox(strMsg, vbYesNo + vbQuestion, "Controle")
    If bytDummy = vbYes Then
     'We voegen de Richting toe.
      Set cnn = CurrentProject.Connection
         Set rst = New ADODB.Recordset
         rst.Open "Richting", cnn, adOpenKeyset, adLockBatchOptimistic, _
         adCmdTable
         rst.AddNew
         rst.Fields("Richting").Value = NewData
         rst.Update
         Response = acDataErrAdded
         rst.Close
         Set rst = Nothing
         cnn.Close
         Set cnn = Nothing
    Else
        Response = acDataErrContinue
    End If
End Sub



Weet iemand de reden?

Fout 3265 tijdens uitvoering

Item cannot be found in the collection corresponding to
the requested name or ordinal.

Als ik dan de knop "Foutopsporing" indruk wijst hij
naar die regel die ik in het eerste bericht heb geplaatst