对象引用未设置为特定于对象的实例

Question

为什么我会出现这个错误？ - “你调用的对象是空的？” 这是连接到SubiektGT数据库的应用程序。 Subiekt是一个销售系统。我知道有这么多的话题，但我找不到解决方案。

这是我的代码：

Public Class SubiektGT

    Dim gt As New InsERT.GT
    Dim daneKlienta As New SklepPobieranieDanych  

    'Connection to Subiekt database
    Function UruchomSubiekta() As InsERT.Subiekt

        Dim oSgt As InsERT.Subiekt

        Try
            gt.Produkt = InsERT.ProduktEnum.gtaProduktSubiekt
            gt.Serwer = "USER-KOMPUTER\insertgt"
            gt.Baza = "Sklep"
            gt.Autentykacja = InsERT.AutentykacjaEnum.gtaAutentykacjaMieszana
            gt.Uzytkownik = ""
            gt.UzytkownikHaslo = ""
            gt.Operator = "Szef"
            gt.OperatorHaslo = ""

            oSgt = gt.Uruchom(InsERT.UruchomDopasujEnum.gtaUruchomDopasuj, InsERT.UruchomEnum.gtaUruchomWTle)

        Catch ex As Exception
            MessageBox.Show("Błąd: " & ex.Message)
        End Try    
    End Function


    Private Sub btnDodajKlientaDoSubiekta_Click(sender As Object, e As EventArgs) Handles btnDodajKlientaDoSubiekta.Click    
        daneKlienta.PobierzDaneKlientaDlaSubiekt()
        DodajKontrahenta()   
    End Sub

End Class

以下是抛出异常的代码：

Public Sub DodajKontrahenta()

            Dim oSgt As InsERT.Subiekt
            Dim oKh As InsERT.Kontrahent

            oSgt = UruchomSubiekta()

            oKh = oSgt.Kontrahenci.Dodaj  'EXCEPTION
            oKh.Typ = InsERT.KontrahentTypEnum.gtaKontrahentTypDostOdb

            oKh.Nazwa = daneKlienta.Nazwa
            oKh.NazwaPelna = daneKlienta.Nazwa
            oKh.Miejscowosc = daneKlienta.Miejscowosc
            oKh.Ulica = daneKlienta.Adres
            oKh.Email = daneKlienta.Email

            oKh.Zapisz()
            oKh.Zamknij()
        End Sub

InsERT.Kontrahent是一个接口，当异常到来时，我尝试创建一个新对象。真的不知道为什么。