Hallo,
wenn dir der Wert des Primärschlüssels bekannt ist dann nimm doch die folgende Funktion:
Dim dbsTabelle As Database, rsTabelle As Recordset
Dim i As Byte
dim Suchdatum
Set dbsTabelle = DBEngine.Workspaces(0).Databases(0)
Set rsTabelle = dbsTabelle.OpenRecordset("tab_Tabelle", dbOpenTable)
DoCmd.SetWarnings True
rsTabelle.Index = "Primärschlüssel"
rsTabelle.Seek "=", Suchdatum
DatuminZahl = rsTabelle!Spalte
Du mußt nur in der Entwurfsansicht der Tabelle, in der Spalte des Primärschlüssels "Indiziert( Ja ohne Duplikate" Aktivieren.
Gruß Fchris