Private Sub Form_Load()
    Dim cn As New ADODB.Connection
    If cn.State = 1 Then
        cn.Close
    End If
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\db1.mdb"
    
    ’导出
    cn.Execute "SELECT * into [Text;HDR=YES;DATABASE=d:\].a.dat from students"
    ’导入
    cn.Execute "insert into students select *  from [Text;HDR=YES;DATABASE=d:\].a.dat"
End Sub