Visual Basic - Autonumerico

Necesito que un campo sea autonumerico, en un Text de codigo, estoy trabajondo con un formulario enlasado con un control data, se me ocurrio el siguiente codigo, quisiera saber si esta bien.


Dim c as Integer
c = SELECT MAX AS clicod(campo) FROM clientes (tabla)
If c < "0"
Text1.Text = 1
Else
Tect.Text = c +1
End If
End Sub

El mismo se encontrara en el evento click de un Commaand Button llamado agregar, el cual agrega un nuevo registro

posiblemente tengas un error en esta linea if c < "0" porque al ponerlo entre comillas le dices a visual que 0 es un entero quedaria asi if c < 0
esta linea esta mal tect.text = c + 1 es text1.text = c + 1
quedaria:
Dim c as Integer
c = SELECT MAX AS clicod(campo) FROM clientes (tabla)
If c < 0
Text1.Text = 1
Else
Text1.Text = c +1
End If
End Sub

Al total de registros le suma 1

SELECT MAX(Campo) + 1 AS Total
FROM Tabla

Dim c as Integer, sSql as string, Rs as new adodb.recordset
'Asumo que el recordset esta instanciado en la variable de conexion
c = 1 'Por defecto que empiece en 1

Rs.open "SELECT MAX(clicod) FROM clientes"
if not rs.eof then
if isnull(Rs(0))=false then 'esta linea determina si no encontró valor
c = c + 1
end if
endif

Text1.Text = c

End Sub