ADO - function use SQL to return maximal value
Function HELP() 'Pavel Humenuk
Dim strSQL As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
strSQL = "SELECT Max(CAS)as x FROM [NORMY]"
rst.Open strSQL, CurrentProject.Connection, adOpenStatic
HELP = rst("x")
MsgBox "Maximal value is: " & HELP
rst.Close
Set rst = Nothing
End Function
|
