cDestDir = "c:\" cDestDBC = "mydbc.dbc" Set oCat = CreateObject("ADOX.Catalog.2.7") oCat.Create "Provider=VFPOLEDB.1;Data Source=" & cDestDir & cDestDBC Set oConnMemos = CreateObject("ADODB.Connection.2.7") With oConnMemos .ConnectionString = _ "Provider=VFPOLEDB.1;Data Source=" & cDestDir & cDestDBC .CursorLocation = 2 ' adUseServer .Mode = 16 ' adModeShareDenyNone .Open End With oConnMemos.Execute("Create Table " & cDestDir & "ShowF2 ( cshowid c(30) Null)") oConnMemos.Execute("Alter Table ShowF2 Add Column mdescript M NULL") oConnMemos.Execute("Alter Table ShowF2 Add Column climitations M NULL") oConnMemos.Execute("Insert Into ShowF2(cshowid) Values('4')") ctxtShowId = 4 ctxtDescription = String(256,"x") cUpdateString = "Update ShowF2 Set mdescript = '" & ctxtDescription & "' where cshowid = '4'" Response.Write cUpdateString oConnMemos.Execute(cUpdateString) oConnMemos.Close set oConnMemos = nothing