Visual Basic.NET - CONTAR FILAS DE UNA BBDD

Hola tengo un problemilla, al insertar en mi bbdd

la primera vez que inserte quiero que inserte un 1 en cod_cliente
y las restantes veces que incremente en uno.

Pues bien, yo cuento las filas, y si no hay filas, es el primer registro y me insertar un 1. Perfecto, pero en las sucesivas veces, sigue contando 0 filas en mi bbdd y me quiere volver a insertar un 1. Por que puede ser??

funcion()

Dim CodCliente As Integer
'Conexion.Open()
If Me.DataInmobiliaria.Tables("Clientes").Rows.Count = 0 Then
CodCliente = 1
Else
Me.AdaptadorClientes.SelectCommand.CommandText = "select max(Cod_Cliente) from clientes"
Conexion.Open()
CodCliente = Me.AdaptadorClientes.SelectCommand.ExecuteScalar + 1
Conexion.Close()
End If

end funcion()

Prueba con esto

funcion()

Dim CodCliente As Integer
'Conexion.Open()
If Me.DataInmobiliaria.Tables("Clientes").Rows.Count = 0 Then
CodCliente = 1
Else
Me.AdaptadorClientes.SelectCommand.CommandText = "select max(Cod_Cliente) + 1 from clientes"
Conexion.Open()
CodCliente = Me.AdaptadorClientes.SelectCommand.ExecuteScalar
Conexion.Close()
End If

end funcion()