Const dsn = "orcl" ' dsn Const user = "SCOTT" ' user Const pass = "tiger" ' pass Sub import() Dim conn As Object Dim rec As Object Dim tableName As String Dim strSQL As String DoCmd.SetWarnings False Set conn = CreateObject("ADODB.Connection") conn.Open "DSN=" & dsn & ";UID=" & user & ";PWD=" & pass & ";" strSQL = "SELECT TABLE_NAME FROM USER_TABLES WHERE PARTITIONED = 'NO' ORDER BY TABLE_NAME" Se