Hocam öncelikle emeğinize sağlık. Teşekkür ederim.

Birkaç çözümleyemediğim yer var ;

Dim T1(4) As Integer
Dim S1 As String
For K1 = 1 To 4
For K2 = 1 To 4
For K3 = 1 To 4
For K4 = 1 To 4
For K5 = 1 To 4
For K6 = 1 To 4
For K7 = 1 To 4
For K8 = 1 To 4

S1 = Format(K1, "0") & Format(K2, "0") & Format(K3, "0") & Format(K4, "0")
S1 = S1 & Format(K5, "0") & Format(K6, "0") & Format(K7, "0") & Format(K8, "0")

For I = 1 To 7
If Mid(S1, I, 1) = Mid(S1, I + 1, 1) Then GoTo 100
Next I

'Buraya kadar olan bölümde bir sayı oluşturuldu ve bu sayının kurala uymayanları döngüye gönderildi.

****************************************************************
'Aşağıdaki üç döngüde tam olarak ne yapıldığını çözemedim.

For I = 1 To 4
T1(I) = 0
Next I

For I = 1 To 8
L1 = Mid(S1, I, 1)
T1(L1) = T1(L1) + 1
Next I

For I = 1 To 4
If T1(I) <> 2 Then GoTo 100
Next I
*****************************************************************
rs.AddNew
rs!SAYI = S1
rs.Update
100
Next K8
Next K7
Next K6
Next K5
Next K4
Next K3
Next K2
Next K1
MsgBox "Sayılarınız TABLO1 de oluşturulmuştur..."
End Sub