Private Sub Form_Current()
Dim rs As DAO.Recordset
Dim i As Integer
Dim ctlr As Control
   
     Set rs = CurrentDb.OpenRecordset("tbl_urun")
     For Each ctlr In Me.Controls
     If TypeOf ctlr Is TextBox Then
      For i = 0 To ctlr.Controls.Count
      On Error Resume Next
       ctlr.Value = rs!urunadi
       rs.MoveNext
      Next i
    End If
Next

End Sub