Dim cnDel As New ADODB.Connection '-梁陪--------------删除旧数据库1-1
Dim rDel As New ADODB.Recordset
Dim sqlDel1 As String
cnDel.Open "DBQ=" & App.Path & "\data\data.mdb;Driver={Microsoft Access Driver (*.mdb)};"
sqlDel1 = "delete * from data1"
cnDel.Execute sqlDel1
cnDel.Close '------------橡罩蠢---删除旧闷陪数据库1-1