查詢B資料表, 儲存到A資料表

例如：

Dim strSQL As String
strSQL = "INSERT INTO tblA(field1,field2) 
IN d:\gz.MDB
Select tblB.a, tblB.b From tblB;" 
 :REM 執行該函數進行SQL查詢 
CurrentProject.Connection.Execute strSQL

以上例子是查詢B資料表, 儲存到A資料表