Dim cnn As ADODB.ConnectionPrivate Sub Command1_Click()
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\mydb.mdb"
  cnn.Execute "select 学号,姓名,住址 into student in 'c:\temp\mydb2.mdb' from student "
  cnn.Close
  Set cnn = Nothing
End Sub