Ho provato il tuo codice e funziona perfettamente.
Nei Riferimenti del progetto hai caricato la libreria "Microsoft DAO 3.6 Object Library" ?

Ti riquoto il codice che ho provato e che funge:

Dichiarazioni:

Dim wrkjet As Workspace
Dim dbData As Database
Dim dbtabella As Recordset
Dim dbNome, dbCognome, dbIndirizzo, dbIndirizzo1 As Field

Codice:

Set wrkjet = CreateWorkspace("", "admin", "", dbUseJet)
Set dbData = wrkjet.OpenDatabase("percorso\db1.mdb")
Set dbtabella = dbData.OpenRecordset("Cliente", , dbAppendOnly)
Set dbNome = dbtabella.Fields("Nome")
Set dbCognome = dbtabella.Fields("Cognome")
Set dbIndirizzo = dbtabella.Fields("Indirizzo")
Set dbIndirizzo1 = dbtabella.Fields("[Indirizzo lavori]")

TxtNome.Text = dbNome
TxtCognome.Text = dbCognome
TxtIndirizzo.Text = dbIndirizzo
TxtIndirizzo1.Text = dbIndirizzo1

Ciao.