amatorce uğraşıyorum hatanın sebebi ne olabilir


FORM 1

Private Sub Command1_Click()

alanlar.ad = giris.ad HATA BU SATIRDA SARI RENKLE GORUNUYOR
alanlar.adres = giris.adres
alanlar.soyad = giris.soyad
alanlar.tel = giris.tel

cevap = MsgBox("ee napag", 4)
If cevap = 6 Then

Put #1, kayitno, alanlar
kayitno = kayitno + 1
giris.ad = ""
giris.adres = ""
giris.soyad = ""
giris.tel = ""
End If
End Sub

Private Sub Command3_Click()
Close #1
End
End Sub

Private Sub Form_Load()
Open "adres.dat" For Random As #1 Len = Len(alanlar)
kayitno = LOF(1) / Len(alanlar)
kayitno = kayitno + 1
End Sub


MODUL 1
Type kayitbilgisi
ad As String * 10
soyad As String * 15
adres As String * 30
tel As String * 10
şehir As String * 10
End Type
Global alanlar As kayitbilgisi
__________________