Opret Adgang til Access Database!

I den gamle Visual Basic 6.0 gjorde jeg ca. sådan her for at oprette database adgang til en Access Database....

Hvad kan jeg gøre nu?

Dim rsFlange As dao.Recordset
Dim MinFlangeDN As String
Dim MinFlangeStandard As String

MinFlangeStandard = "ANSI 150"
MinFlangeDN = "500"
Set datDB = DBEngine.Workspaces(0).OpenDatabase(Workbooks("C:\AccessDataBase.mdb").Sheets("Arbejdsark").Range("Database_MenuDataLister"))

strSQL = "Select * FROM StandardFlanger Where FlangeDN Like '" & MinFlangeDN & "' AND Standard like '" & MinFlangeStandard & "'"

Set rsFlange = datDB.OpenRecordset(strSQL)

Do Until rsFlangeData.EOF

TxtID.text = CDec(rsFlange("ID"))
TxtPris.text = CDec(rsFlange("Pris"))
rsFlange.MoveNext
Loop