problema al insertar

[Esfinge02]

buenas quiero realisar una insercion en vb.net con la siguiente instruccion, la cual me debe devolver el id de la ultima insecion.

Nota: esto esta dentro de un procedimiento que cree "creo XD" se llama insPaquete

INSERT INTO Paquetes
(precio, activo, paquete)
VALUES (@precio, @act, @paq)
SELECT SCOPE_IDENTITY();

sin embargo me dice que se esperaba un punto y coma al final de la instruccion y no pasa de alli no se que sea, aca muesrto como lo ejecuto.

Private Sub btnguardarp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardarp.Click
Proc.Visible = True
Dim paquete As String = txtpaquete.Text
Dim act As Boolean = True
Dim pre As Decimal = 0
Dim pac As Boolean = conPaquetes.insPaquete(pre, act, paquete)
Dim identity As Integer = -1
identity = Integer.Parse(conPaquetes.ToString())
MessageBox.Show("este es el valor" + identity, MessageBoxButtons.OK, MessageBoxIcon.Information)
'Actulisamos el datagrit
Me.conPaquetes.Fill(Me.PollosDataSet.Paquetes)

End Sub

si me dicen como se los agredeseria, ya no tengo la menor idea de como se hace.

[moNTeZIon]

Quizá se refiera a este punto y coma:

Código SQL:

INSERT INTO Paquetes
(precio, activo, paquete)
VALUES (@precio, @act, @paq); <-- Este!
SELECT SCOPE_IDENTITY();
 

Las instrucciones SQL van separadas por punto y coma.
Saludos.

[Esfinge02]

ya se lo agregue pero ahora me arrojo esto "Se encontraron caracteres después del final de la instrucción SQL." debo decir que mi base de datos es de acces

[moNTeZIon]

Entonces me estás angañando...
Access no tiene Procedimientos.
Cueando dices que esto está dentro de un procedimiento:

Código SQL:

INSERT INTO Paquetes
(precio, activo, paquete)
VALUES (@precio, @act, @paq)
SELECT SCOPE_IDENTITY();
 

Podrías postear ese procedimiento a ver qué vemos.
Y para obtener el IdInsertado, mejor utiliza:

Código SQL:

SELECT @@IDENTITY
 

Saludos.

[Esfinge02]

me e rendido de recuperar el valor que devuelve la indercion XD, y lo e echo de estamanera espero que alguien mas les siva.

Private Sub btnguardarp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardarp.Click
Proc.Visible = True
Dim paquete As String = txtpaquete.Text
Dim act As Boolean = True
Dim pre As Decimal = 0
'se inseta un nuevo paquete
Dim pac As Integer = conPaquetes.insPaquete(pre, act, paquete)' inserto
'consulta el id de la ultima inserción
Dim cd = conPaquetes.conidPaquete()
Dim id As Integer = Convert.ToString(cd.Rows(0)("idpaquete"))
'Actulisamos el datagrit
Me.conPaquetes.Fill(Me.PollosDataSet.Paquetes)
idpaq.Text = Convert.ToString(id)
End Sub