Gracias, ya lo resolvi
Código:
Dim SqlCommando As New SqlCommand("SELECT MAX(IdXNSoft) as res FROM tbl2BaseSoftware", conection)
ultimo = SqlCommando.ExecuteScalar() + 1
txtCodigo.Text = ultimo
PD: Si pregunto tanto es poque llevo horas buscando en los foros ni no lo encontrava, nunca pregunto por capricho