Private Sub cmdImport_Click()
Conn.Execute "Select * into [c:\test.mdb].[man] from [man]" ’--就这句话
MsgBox "imports ok"
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
Call Make_Connection
If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "Select * from Man", Conn, 3,3
If Rs.RecordCount <> 0 Then
Set Me.DataGrid1.DataSource = Rs
End If
End Sub