Private Sub Command1_Click()
Dim CNN As New ADODB.Connection
Dim STRSQL As String
CNN.CursorLocation = adUseClient
CNN.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDb=E:\DBF"
CNN.Open
STRSQL = "CREATE TABLE E:\DBF\DEMO.DBF ([IDA] CHAR(32) ,[NAME] CHAR(32) )"
CNN.Execute STRSQL
CNN.Close
End Sub