Access - Problema al pasar de 97 a 2000

me da error de compilación en este código: (en la línea marcada con la flecha)
Function Ver()
Dim DB As Database
Dim tb2 As Table <---------------------
Set DB = CurrentDb() ' Abrir base de datos.
Set tb2 = DB.OpenTable("REGISTRO")
tb2.MoveLast
Forms.formulario1.Texto5.Caption = tb2.ultima_fecha
Forms.formulario1.Texto6.Caption = tb2.ultimo_numero
Forms.formulario1.Texto7.Caption = tb2.cantidad
tb2.Close
End Function

No tengo mucha idea, pero es un programa antiguo que tengo que arreglar para 2000

Hola..
El objeto table no existe...
Debes usar Un Objeto llamado Recordset, y el metodo OpenRecordset, para abrir este objeto.

Efectivamente, como dice luis fernando has de poner recordset. Permíteme añadir algunos cambios a la función para que te de menos errores:

Function Ver()
Dim DB As Database
Dim tb2 As Recordset
Set DB = CurrentDb() ' Abrir base de datos.
Set tb2 = DB.openrecordset("REGISTRO",dbopendynaset)
if tb2.eof and tb2.bof then goto salida
tb2.MoveLast
Forms.formulario1.Texto5.Caption = tb2.ultima_fecha
Forms.formulario1.Texto6.Caption = tb2.ultimo_numero
Forms.formulario1.Texto7.Caption = tb2.cantidad
salida:
tb2.Close
db.close
set db=nothing
End Function

Acostúmbrate a cerrar también la base de datos si no se queda una conexion implícita...