Verdiğiniz kodlarla denedim. Ama olmadı Limiti -500 olan -3000 borcu olan bir müşteride hata vermedi. Bende şöyle bir yöntem denedim. Metin kutuları ile limiti ve borcu -1 ile çarptırıp  limit2 ve borc 2 olarak iki metin kutusuna değerleri + ya çevirdim. Boş olan limite de sorguda 0 değerini verdim. Sonra şu kodu kulllandım

If limit = 0 Then

           

                Me.Metin20 = Me.Liste3.Column(0)

                Me.Metin129 = Me.Liste3.Column(1)

                Me.Metin0 = harf & Format(Me.Metin7, "00000")

           

           ElseIf limit2 < borc2 Then



MsgBox ("Müşteri limitini aşmış! Yine de Satış yapmak istediğinize eminmisiniz? !......")



 Me.Metin20 = Me.Liste3.Column(0)

                Me.Metin129 = Me.Liste3.Column(1)

                Me.Metin0 = harf & Format(Me.Metin7, "00000")

                





End If

Koddaki liste ve bazı metin kutusu adlarının farklı olması asıl çalışmamdan aldığımdandır.
Bu şekilde hem istediğim gibi oldu. Yardımlarınız ve ilginiz için çok teşekkür ederim ozan bey.