Evde değilim ve internet bağlantımı kapattırdum fakat bir kod örneği şu şekilde

dim rs as new adodb.recordset
Dim rt as new adodb.recordset

rs.open "tabloadi1", currentproject.connection,adopenkeyset, adlockoptimistic
rt.open "tabloadi2", currentproject.connection,adopetkeyset, adlockoptimistic

Do until rs.Eof then
İf rs! Alanadi = "özgür" 
Rt. Addnew
Rt! Alanadi=rs! Alanadi
Rt. Update
Rs. Close
Rt.close
Rs.movenext
Loop

Bu kod tablo 1 içinde özgür yazanları bulup tablo 2 ye kaydeder. Yani rs ile açılan tablo1 in içini belirtilen alanı tarar özgür  bulur ve rt ile  açılan tablo2 içine gerekli alana kayıt ekler. 

Ufak tefek yazım hataları olabilir cep telefonundan küçücük bir alan kullanarak yazıyorum. İşleyiş bu tarz. Sitemizde bununla ilgili bir çok örnek mevcut