Access総合相談所 其の21 【桐にしとけ】

Dim I As Long
Dim dum As String

Set cn = CurrentProject.Connection
rs1.Open "SELECT * FROM T1 ORDER BY ID1", cn, adOpenStatic, adLockReadOnly
rs2.Open "T2", cn, adOpenKeyset, adLockPessimistic

Do Until T1.EOF
If Isnull(rs1!ID) Then dum = rs1!ID
rs2.Add New
For i = 0 to rs1.Fields.Count - 2
If IsNull(rs1(i)) Then rs2(i) = rs1(i)
Next i
rs2.Update
rs1.NextRecord
Loop

こんな感じじゃねーか? あ、ちなみにADOね。
あと規制くらってるから、そうそうレスできんから。