STOKADI adında bir hücre göremedim
ancak TABLO1 e Stokadi olarak bir alan eklerseniz
şöyle bir kod kullanabilirsiniz

Private Sub Form_Open(Cancel As Integer)

If Dlookup ("[SIRANO]", "TABLO1", "[SIRANO]") = 1 Then

Me.A.Caption = Dlookup ("[Stokadi]", "TABLO1", "[SIRANO]=1")



Else

Me.A.Caption = "A"

End If

End Sub