Kod:
Private Sub Komut0_Click()
strSQL = "SELECT TOP 1 Ürünler, Max(miktar) AS encok FROM Tablo1 GROUP BY Ürünler ORDER BY Max(miktar) DESC;"
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
Forms!Form1.Form!Metin1 = .Fields("Ürünler")
Forms!Form1.Form!Metin3 = .Fields("encok")
.Close
End With
End Sub