Dim cn As New adodb.Connectioncn.open "连接字符"
on error resume next
cn.Execute " drop table newtable "
cn.Execute " select * into newtable from oldtable "
on error goto 0
on error resume next
cn.Execute " drop table newtable "
cn.Execute " select * into newtable from oldtable "
on error goto 0
adodc1.RecordSou...="Select * into ..........
adodc1.刷新