Call Last ID VB.NET SQL SERVER

I am developing a window to insert data into sqlserver2008 from vb.net, my query is, how to call the maximum id after having saved it

Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
    Try
        Dim command As String = "insert into cargos (idcargo,cargodesc)values(@id,@desc)"
        executequery(command)
        MsgBox("Guardado correctamente", MsgBoxStyle.Information, AcceptButton)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    tbId.Clear()
    tbCargoDesc.Clear()
    ULTIMOREG()
    btnNuevo.Enabled = True
    btnGuardar.Enabled = False
    btnNuevo.Focus()
End Sub
Public Sub executequery(ByVal query As String)
    Dim command As New SqlCommand(query, con)
    command.Parameters.AddWithValue("@id", tbId.Text)
    command.Parameters.AddWithValue("@desc", tbCargoDesc.Text)
    con.Open()
    command.ExecuteNonQuery()
    con.Close()
End Sub