Inserção de dados

Eae pessoal beleza ??

Bom estou começando agora mecher com .NET resumundo CABAÇÃO

E estou com um problema na hora de inserir ...

Tipo estou usando banco SQL Server pelo q percebi ele nao tem esquema de Auto-Numeração assim como Bd Access..

Entao resolvi fazer uma "função"..

olhem

Public Function inserir(ByVal dados As voUsuario) As Boolean

Dim Conectado As New conexao

Dim strSql As New System.Text.StringBuilder

Try

Conectado.Conectar()

 strSql.Append("SELECT MAX(idUsu) FROM TbUsuDesafio")

 Id = DirectCast(Conectado.RetornaId(strSql.ToString), Integer)

 'NESSE MOMENTO ELE VAI NA FUNÇÃO Retorna ID

 Public Function RetornaId(ByVal idUsu As String) As Object

 Dim Command As New SqlCommand(idUsu, Conexao)

 RetornaId = Command.ExecuteScalar()

 End Function

 'FIM DA FUNÇÃO

 

 strSql.Append("INSERT INTO TbUsuDesafio ( idUsu, strNome, strEndereco, strTel, strEmail, dtNascimento, strLogin) ")

 strSql.Append("VALUES ")

 strSql.Append("(" & Id & ", '" & dados.strNome & "', '" & dados.strEndereco & "', '" & dados.strTel & "', '" & dados.strEmail & "', '" & dados.dtNascimento & "', '" & dados.strLogin & "')")

 Conectado.Executar(strSql.ToString)

 Return True

 Catch ex As Exception

 Return False

 Finally

 Conectado.Fechar()

 End Try

End Function

Mas ele nao esta voltando um valor 1

falta eu colocar uma função de Maior ali isso eu sei..

mas nao sei aonde e como fazer

=(

Alguem pode me ajudar?