Dim sqlStatement As String
Dim 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后出现资料库被别人使用.

请各位帮帮忙,谢谢!!!