Örneği görmediğimiz için tahmin yürütüyorum...

Sayfa adı Sayfa1 diyelim
Kayıtları saydıracağımız sütun A2:A.. diyelim


Dim iRw As Integer
Dim iSat As Integer
Dim RwNm As String

With Worksheets("Sayfa1")
iRw=.Range("A" & .Rows.Count).End(xlUp).Row
iSat=Application.WorksheetFunction.Count(.Range("A2:A" & iRw))+1
End With
RwNm="kayıt" & iSat

With rs
......

.Fields(id).Value = RwNm

.....