Public Function VBA_SQL2(Region As String, Rok As String) As String

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command
Dim Wynik As String
Set cn = New ADODB.Connection
Wynik = 0

cn.ConnectionString = ConnectionString_Do_Serwera_Relacyjnego()
cn.Open

cmd.ActiveConnection = cn
cmd.CommandText = "SELECT TOP 1 Towary.Towar " + _
                    "FROM Sprzedaz_hist " + _
                    "JOIN Regiony ON Sprzedaz_hist.Region_Id = Regiony.Id " + _
                    "JOIN Czas ON Sprzedaz_hist.Czas_Id = Czas.data " + _
                    "JOIN Towary ON Sprzedaz_hist.Towary_Id = Towary.Id " + _
                    "WHERE Regiony.Region = '" + Region + "' AND " + _
                    "Czas.Rok = '" + Rok + "' " + _
                    "GROUP BY Towary.Towar " + _
                    "ORDER BY SUM(Ilosc) desc" ' tutaj piszemy pożądane zapytanie do bazy relacyjnej

cmd.CommandType = adCmdText
Set rs = cmd.Execute
rs.MoveFirst
If IsNull(rs.Fields(0).Value) Then  ' uwaga, indeksowanie od zera
 Wynik = 0
Else
 Wynik = rs.Fields(0).Value
End If
rs.Close
cn.Close

VBA_SQL2 = Wynik    ' tu wynik podstawiany jest jako wynik funkcji, uwaga na nazwę i typy danych
End Function