I am running this code and I am getting:

Run-time error '3343'.
Unrecognized database format 'C:\My Documents\Caddiefles.dbf'.

Code:

TxtText1.Text = "C:\My Documents\Caddiefles.dbf"
Data1.Connect = "ForPro 2.0;DATABASE=" & TxtText1.Text
Data1.DatabaseName = TxtText1.Text  
Dim db As Database
Dim td As TableDef
Set db = OpenDatabase(TxtText1.Text)
For Each td In db.TableDefs
        lstTableDatabase.AddItem td.Name
Next

Can anyone help with the code?