Visual Basic - Ayuda con consultas

Necesito ejecutar una consulta (por código) que me da un solo valor (el máximo de una tabla) y asignar dicho valor a una variable. Alguien podría ayudarme?

Muchas gracias

Bueno como te estas conectando????que controles estas utilizando Adodc,Data?????Bueno suponiendo que estas con el control Adodc harias lo siguiente:
Sub Mostrar()
Adodc1.RecordSource = "Select Max(DNI) As Maximo From T_Datos_Vehiculos"
Adodc1.Refresh
Max = IIf(IsNull(Adodc1.Recordset.Fields(0)), 0, Adodc1.Recordset.Fields(0))
End Sub