Morada:

        'Retorna o ultimo idmorada da tabela morada e incrementa-o por 1, tornando assim todos os registos sequênciais.
        Dim adicionaidmorada As New SqlClient.SqlCommand
        adicionaidmorada.Connection = db
        adicionaidmorada.CommandType = CommandType.Text
        adicionaidmorada.CommandText = "select max(idmorada) from morada"

        db.Open()
        Dim ultimamorada As Integer = adicionaidmorada.ExecuteScalar
        db.Close()

        If IsDBNull(ultimamorada) = True Then
            idmorada = 1
        Else
            idmorada = Convert.ToInt32(idmorada) + 1
        End If

 Categoria: