Object Reference not set to an instance of an object

Private Sub frmMaintLessee_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try

            Cursor = Cursors.WaitCursor
            intmode = 1
            LoadCityCombo()
            LoadCountryCombo()
            LoadLists()
            ClearScreen()
            Cursor = Cursors.Default
            Exit Sub
        Catch ex As Exception
            MsgBox(ex.Message,    MsgBoxStyle.Exclamation, "LRDB - Lessee ")
            Cursor = Cursors.Default
        End Try
    End Sub




LOADCITYCOMBO statement
 Sub LoadCityCombo()
        Try

            objLessee.GetCityName()
            'Populate city combo
            Dim drcityname As DataRow
            drcityname = objLessee.CityCombo.NewRow()
            drcityname("cityname") = "<Select a City>"
            objLessee.CityCombo.Rows.InsertAt(drcityname, 0)
            'bind the data to the combo box
            cboCity.DisplayMember = "Cityname"
            cboCity.ValueMember = "Cityname"
            cboCity.DataSource = objLessee.CityCombo
            cboCity.ValueMember = "cityname"

            Exit Sub
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub


LOADCOUNTRYCOMBO

 Sub LoadCountryCombo()
        Try

            objLessee.GetCountryName()
            'Populate countryname combo
            Dim drcountryname As DataRow
            drcountryname = objLessee.CountryCombo.NewRow()
            drcountryname("countryname") = "<Select a country>"
            objLessee.CountryCombo.Rows.InsertAt(drcountryname  , 0)
            'bind the data to the combo box
            cboCountryName.DisplayMember = "countryname"
            cboCountryName.ValueMember = "countryname"
            cboCountryName.DataSource = objLessee.CountryCombo
            cboCountryName.ValueMember = "countryname"

            Exit Sub
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub



LOADLIST
 Private Sub LoadLists()
        Dim objLibrary As New clsLibrary
        Dim strSQL As String

        With objLibrary
            strSQL = " SELECT top 100 dbo.tblMaintLesseeDetails.LesseeID, dbo.tblMaintLesseeDetails.LesseeName, dbo.tblMaintLesseeDetails.Address, dbo.tblMaintLesseeDetails.City, " _
            & "dbo.tblMaintCountries.CountryName, dbo.tblMaintLesseeDetails.CountryCode, dbo.tblMaintLesseeDetails.Phone, dbo.tblMaintLesseeDetails.Fax " _
            & "FROM dbo.tblMaintLesseeDetails INNER JOIN " _
            & "dbo.tblMaintCountries ON dbo.tblMaintLesseeDetails.CountryCode = dbo.tblMaintCountries.CountryCode " _
            & "ORDER BY LesseeId "

            .LoadListView(Me.lsvLessee, strSQL, 8)
        End With
    End Sub