strSQL = "SELECT Tablo1.alan1, Tablo1.alan2, * FROM Tablo1 ORDER BY Tablo1.alan1 DESC; "
Set accesstrnet = New ADODB.Recordset
accesstrnet.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Me.Metin0 = accesstrnet("alan2")
Formdaki metin kutusunu (metin0) ilişkisiz yap ve formun açıldığında olayına aşağıdaki kodu yaz.