kodlarınızı bilmeden söylemesi zor ama Recordset kullanmayı deneyebilirsiniz

Dim rS As New ADODB.Recordset

Dim sOrGu As String

sOrGu = "select * from tablo1"

rS.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rS.Find "[Sira]=" & Me.Sira

rS!Sira = Me.Sira

.........