Generar código en visual .net

imagino que tu variable es de tipo string.
Yo lo haría más o menos de esta manera, solo pondré el código necesario, todo lo de conexión a la bd y demás imagino que ya lo has de saber.
private sub boton_click 'ejemplo que sea el evento click del boton en donde va el codigo
   dim valor as string
   dim contador as integer
   dim adaptador as new oledbadapter
   Dim lectura As New DataSet
    Adaptador = New OleDbDataAdapter("select count(*) from tablaclientes", v_conexion)
     lectura.Clear()
     Adaptador.Fill(lectura, "tablaclientes")
     Adaptador.Dispose()
   if lectura.rows.count> 0 then
     contador = lectura.rows.count + 1
  else
     contador = 1
  endif
  valor =  llenar(contador,4)
 textbox.text = 'CL-" & valor
end sub
'Esta funcion le mandas como parametro el numero y la cantidad de ceros a llenar de izquierda a derecha y te lo devuelve tipo string
P.E. llenar(2,4) te devolveria el valor 0002
Public Function llenar(ByVal numero As Integer, ByVal ceros As Integer) As String
        Dim longitud, i As Integer
        Dim valor As String = ""
        longitud = Len(CStr(numero))
        For i = 1 To ceros - longitud
            valor = valor & "0"
        Next
        valor = valor & CStr(numero)
        Return valor
    End Function