Problemas En La Consulta Sql

[GABRIL]

Hola compañeros, a ver si pueden ayudarme, veran, estoy programand una aplicacion en visual basic 6.0, el asunto es que necesito hacer una consulta a una base de datos en acces, usanso sql, donde deseo colocar en una text, el numero del ultimo cliente ingresado, y asi sumarle +1, es para que me genere automaticamente el numero de cliente, y no tener que escribirlo, mi codigo es el sig:
Private Sub Command2_Click() lo tengo dentro de un botonSet ConnPublic = New ADODB.Connection
Set rsPublic = New ADODB.Recordset

iSql = "select max (numcliente) from clientes"

ConnPublic.ConnectionString = Cadena
ConnPublic.Open Cadena

rsPublic.CursorLocation = adUseClient
rsPublic.CursorType = adOpenDynamic
rsPublic.LockType = adLockOptimistic

rsPublic.Open iSql, ConnPublic

With rsPublic
numcliente.Text = !numcliente
End With
End Sub


ojala y puedan ayudarme , gracias de antemano, espero y haya sido claro..