<code><font color=#000099>Private</font> DB <font color=#000099>As</font> _
  Database
<font color=#000099>Private</font> Rs <font color=#000099>As</font> Recordset
 
<font color=#000099>Set</font> DB = DBEngine.OpenDataBase("Name_der_Datenbank", _
  <font color=#000099>False</font> <font color=#000099>False</font>)
<font color=#000099>Set</font> Rs = DB.OpenRecortset("Tabellenname", _
dbOpenDynaset)
 
<font color=green>' Einzelnes Feld auslesen</font>
 
MsgBox Rs.Fields("FeldName").Value
</code>