Visual Basic - encontrar el maximo en una sentencia de sql

alguien me puede ayudar, haber como encuentro el maximo de un campo en sql, y mostarlo en caja texto

Emerson:

Defines un recordset y le asignas una instrucción

Select max(nombre_campo) from tabla where condicion...

eso lo asignas a una variable y lo muestras en el cuadro de texto.

Espero que te sirva

buen dato, pero la verdad es que utilizo DataEnvironment1, esto utilizado el siguiente codigo:

Private Sub Command1_Click()
Dim r25 As New ADODB.Recordset
sql5 = " select max(Num_Sol) from Informacion "
DataEnvironment1.Connection1.Execute sql5
If r25.State = adStateOpen Then r25.Close
r25.CursorLocation = adUseClient
r25.Open sql5, DataEnvironment1.Connection1, adOpenStatic, adLockReadOnly, adCmdText
DataEnvironment1.Connection1.Execute sql5
If r25.AbsolutePosition > 0 Then
MsgBox " Se Encontro "


Text1.Text = Val(r25("Num_Sol"))

Else
MsgBox "nada"
End If
End Sub
" el encuentra la consulta pero no me la muestra en el text1 y manda un error, no se como mostrar en el text1 la consulta "