Dim cnn: Set cnn = CreateObject("ADODB.Connection")
Dim rst: Set rst = CreateObject("ADODB.Recordset")
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:\MyFiles\pgm\d\src\jcc7\tests\activex\filenames.mdb'"
cnn.Open
rst.Open "SELECT * INTO [dBase IV; database=d:\MyFiles\pgm\d\src\jcc7\tests\activex].[dbase.dbf] FROM [tbl_turnpike_filenames]", cnn, 3, 1
Set rst = Nothing
cnn.Close
Set cnn = Nothing