I have a simple question:
How do I write my old Access 2.0 Code with Access 2000 ?

Access 2.0:
Dim db_fc       As Database
Dim ds_fc       As Dynaset
Dim str_sql     As String
Set db_fc = CurrentDb()
str_sql = "select count(*) as Cnt from [table]
Set ds_fc = db_fc.CreateDynaset(str_sql)
ds_fc.MoveFirst
FCountAdressen = ds_fc.prsCount
ds_fc.Close

Access 2000:
???

You did not say what problem you have encountered, but my guess is that you
are having difficulties because the default library checked in new Access
2000 databases is the ADO library, rather than the DAO library. Both are
available and there is some advantage to continuing to use DAO for Jet
database Access.

Open any module, Tools | References and check the Reference for DAO 3.6,
then, just to be certain, move it _above_ the ADO reference in the list.

If that doesn't solve the problem, first read
http://www.mvps.org/access/netiquette.htm for good suggestions on effective
use of the newsgroup and ask specific questions in comp.databases.ms-access.

This newsgroup is for the Visual Basic product, which does also use Jet
databases, but it's only by chance that you find users here who are familiar
with both VB and Access.