Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

Dim zdStr As String
Dim StrSel As String
Dim rs As ADODB.Recordset
StrSel = "Select * FROM 表4"
Set rs = New ADODB.Recordset
rs.Open StrSel, CurrentProject.Connection, adOpenStatic, adLockBatchOptimistic
For i = 0 To rs.Fields.Count - 1
    If "区域" <> rs.Fields(i).Name Then
       rs.Close
         zdStr = "Alter TABLE 表4 ADD COLUMN 区域 text(20)"
         DoCmd.RunSQL zdStr
    rs.Open StrSel, CurrentProject.Connection, adOpenStatic, adLockBatchOptimistic
    End If
Next
Exit_Command0_Click:
    Exit Sub
Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
   
End Sub