Access/VBA/Excel-Access字段删除-07

Sub test()        
    Dim cnn As New ADODB.Connection '连接
    Dim rs As New ADODB.Recordset        
    Dim SQL As String
    Dim tblName        
    Dim dbAddr

    dbAddr = ThisWorkbook.Path & "\学生信息.accdb"
    tblName = "学生信息表"

    '连接数据库
    With cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Open "Data Source=" & dbAddr        End With

    SQL = "Alter table " & tblName & " drop Column 性别"

    Set rs = cnn.Execute(SQL)

    cnn.Close        
    Set rs = Nothing
    Set cnn = NothingEnd Sub