ÓÃ Àà ËÆ Õâ Ñù µÄ ´ú Âë 
    Dim dbDBF As Database ' DBFÎÄ ¼þ 
    Dim sMDBFileName As String ' MDBÎÄ ¼þ 
    For i =0 To dbDBF.TableDefs.Count - 1 
     dbDBF.Execute("SELECT * INTO " + dbDBF.TableDefs(i) _ 
     .Name + " IN '" sMDBFileName + "' FROM " _ 
     + dbDBF.TableDefs(i).Name 
    Next 
<END>
