ACCESS数据库与dat文件的导入导出

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