SQL = "SELECT * FROM Phonebook Where Number = '0525292291'"
Set Rs = Db.OpenRecordset(SQL, dbOpenForwardOnly) 
If Rs.RecordCount = 0 Then 
  GetNumberToName = "unbekannt" 
Else 
  GetNumberToName = Rs(Name) 'Hier erhalte ich den Wert ""! 
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de