Sub 修改视图() 
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=sqloledb;Server=xxxx;Database=xxx;Uid=sa;Pwd=123; "
cnn.Execute "Alter VIEW 视图名 AS select * from xxx"
cnn.Close
End Sub