Dim rs As New ADODB.Recordset
rs.Open "SONDAJBİLGİLERİ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
For i = 1 To rs(5)
CurrentDb.Execute "insert into SONDAJVERİGİRİŞİ (SONDAJKUYUSUADI,yass,bha) "
& "select " & "'" & rs(1) & "','" & rs(4) & "', '" & rs(7) & "'"
Next
rs.MoveNext
Loop
Set rs = Nothing
sanırım rs( ) alanları istenilen yeri bulamıyor bu rs (1) alanının içine SONDAJ KUYUSU ADI alanını belirtmek için nasıl yazmalıyım?