Отображение времени чтения ошибки никаких подробностей не отображается... Пожалуйста, помогите мне.

---

показывая время чтения ошибки нет подробностей шоу... пожалуйста, помогите мне.
в этом две линии

cmbpartynm.Text = dr("prtynm")
cmbinvtype.Text = dr("invtyp")

если я удалю 1-ю строку, то ошибка покажет 2-ю строку
пожалуйста, помогите мне

001 — imgbb.com[^]
002 — imgbb.com[^]
003 — imgbb.com[^]
004 — imgbb.com[^]
001 — imgbb.com[^]

Пожалуйста, посмотрите ссылку и, пожалуйста, помогите мне. Вы говорите об этой части для "SQL-инъекции" или моей части кодирования. Я не знаю английского лучше, пожалуйста, простите меня.

если я выключу эти две строки, то ошибки не будет
cmbpartynm.Текст = д-р("prtynm")
cmbinvtype.Текст = д-р("invtyp")

Я запускаю две бирючины sub в этом событии загрузки двух combox in form. Я думаю, что проблема исходит отсюда. Итак, я останавливаю запуск этой двухполосной субмарины. нет ошибки и проблемы с вводом-выводом.
Два Привет Саб---------------

1) для имени партии combox

Private Sub loadpartyNAME()
Call connection()
' unmcmb.Enabled = False
Dim ds As New DataSet
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter
da = New OleDb.OleDbDataAdapter("select * from party_ldg", cn)
da.Fill(ds, "party_ldg")
ds.Tables(0).DefaultView.Sort = "prtynm"
' cn.Close()
With cmbpartynm
.DataSource = ds.Tables("party_ldg")
.DisplayMember = "prtynm"
'.ValueMember = "UNTid"
End With
End Sub

2) для типа Inv(cash/credit combox)

Private Sub loadinvoicetype()
Call connection()
' unmcmb.Enabled = False
Dim ds As New DataSet
' Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter

da = New OleDb.OleDbDataAdapter("select * from inv_type", cn)
da.Fill(ds, "inv_type")
ds.Tables(0).DefaultView.Sort = "invtyp"
' cn.Close()
With cmbinvtype
.DataSource = ds.Tables("inv_type")
.DisplayMember = "invtyp"
'.ValueMember = "UNTid"
End With

End Sub

Что я уже пробовал:

If cn.State = ConnectionState.Open Then
            cn.Close()
        End If
        cn.Open()
        Call connection()
        Dim str As String
        str = "SELECT * FROM party_ldg,inv_type,pur_inv  WHERE pur_inv.partyIDpur=party_ldg.partyID and pur_inv.invtypidpur=inv_type.invtypid and purinvid = '" & TextBox1.Text & "'"
        Dim cm As OleDb.OleDbCommand = New OleDb.OleDbCommand(str, cn)
        dr = cm.ExecuteReader
        While dr.Read()
            '     txtpurinvid.Text = dr("purinvid")
            txtminvdt.Text = dr("purinvdt")
            txtpurinvno.Text = dr("invno")
            txtmpurinvdt.Text = dr("invdt")
            txttotaltaxable.Text = dr("tottaxblamt")
            txttotaltaxamt.Text = dr("taxamt")
            txtinvamt.Text = dr("invamt")
            txtnrr.Text = dr("nrr")
            cmbpartynm.Text = dr("prtynm")
            cmbinvtype.Text = dr("invtyp")
            txtpartyid.Text = dr("partyIDpur")
            txtinvtypeid.Text = dr("invtypidpur")
        End While
        ' Button5_Click(sender, e)
        'Button2_Click(sender, e)
    End Sub

---