I am using Foxpro 3.0 tables,
I want to add a column, so I used .Fields.Append .CreateField
but not able add the column. It says database is readonly

The code,


Dim db As Database
Dim rss As Recordset
Dim tbldf As TableDef
Dim gk As Field
Dim noflds As Integer

Set db = OpenDatabase("d:\temp111", True, False, "Foxpro 3.0;")
'Set rss = db.OpenRecordset("exptab1", dbOpenDynaset)
Set tbldf = db.TableDefs("exptab1")

Debug.Print db.Updatable
Debug.Print tbldf.Updatable
If tbldf.Updatable Then
tbldf.Fields.Append tbldf.CreateField("vedula", dbText, 50)
End If

db.Close