[求助]请问这样那出问题了?
Dim sqlStatement As StringDim dbObj As Database
Set myworkspace = Workspaces(0)
Set dbObj = myworkspace.OpenDatabase("c:\db1.mdb")
sqlStatement = "ALTER TABLE " & Data1.RecordSource & " ADD [" & Data2.Recordset.Fields(1) & "] " & "text"
Call dbObj.Execute(sqlStatement)
RUN后出现资料库被别人使用.
请各位帮帮忙,谢谢!!!