If Dir("C:\test.dbf", vbNormal) <> "" Then Dim cn1 As New ADODB.Connection Dim cm1 As New ADODB.Command cn1.Open "Driver=Microsoft Visual Foxpro Driver;UID=;SourceType=DBF;Deleted=YES;Null=NO;SourceDB=D:\" cm1.ActiveConnection = cn1 cm1.CommandType = adCmdUnknown cm1.CommandText = "ALTER TABLE C:\test.dbf ALTER COLUMN Field3 c(4)" cm1.Execute End IfAlso, any tips for the SQL replace commands before I get into that?
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams