Private Function FncSuchen_IV() As Object 'frmVPInventur
        Dim parm1 As String = ("%") : Dim parm2 As String = ("%") : Dim parm3 _
          As String = ("%")
        Dim parm4 As String = ("%") : Dim parm5 As String = ("%") : Dim parm6 _
        As String = ("%")
        Dim parm7 As String = ("%") : Dim parm8 As String = ("%") : Dim parm9 _
        As String = ("%Z1%")
        Dim DatenM As New DataSet
 
        Dim Debitor_ZDIS As String : Dim Name1 As String : Dim Ort As String : _
          Dim PLZ As String : Dim Strasse As String  'Dim Telefon1 As String
 
        parm1 = parm1 + txtVPNrSuchen_IV.Text + parm1
        parm2 = parm2 + txtFirmaSuchen_IV.Text + parm2
        parm3 = parm3 + txtOrtSuchen_IV.Text + parm3
        parm4 = parm4 + txtPLZSuchen_IV.Text + parm4
        parm5 = parm5 + txtStrasseSuchen_IV.Text + parm5
 
 
        Dim Zaehler As String = "0"
        DGVSuchen1_IV.Visible = True
        DGVSuchen1_IV.Size = New Size(792, 316)
        DGVSuchen1_IV.Location = New Point(9, 56)
 
        DBopenLocal()
        conLocal.Open()
 
        cmdLocal.CommandText = "SELECT DISTINCT [tblKNA1_ZDIS.Debitor]," & _
          "[tblKNA1_ZDIS.Name1], [tblKNA1_ZDIS.Ort], [tblKNA1_ZDIS.PLZ]," & _
          "[tblKNA1_ZDIS.Strasse]
                            FROM tblKNA1_ZDIS
                            WHERE tblKNA1_ZDIS.Debitor LIKE '" & parm1 & "' And _
                              tblKNA1_ZDIS.Name1 LIKE '" & parm2 & "' And _
                              tblKNA1_ZDIS.Ort LIKE '" & parm3 & "'
                            And tblKNA1_ZDIS.PLZ LIKE '" & parm4 & "' And _
                            tblKNA1_ZDIS.Strasse LIKE '" & parm5 & "' 
                            ORDER BY tblKNA1_ZDIS.Debitor"
 
        DGVSuchen1_IV.Rows.Clear()
        readerLocal = cmdLocal.ExecuteReader
        Dim LaufendeNr As String = Nothing
        Do While readerLocal.Read
            Zaehler = CStr(CInt(Zaehler) + 1)
            Debitor_ZDIS = CStr(readerLocal("tblKNA1_ZDIS.Debitor"))
            Debitor_ZDIS = Debitor_ZDIS.Substring(4)
            Name1 = CStr(readerLocal("tblKNA1_ZDIS.Name1"))
            Ort = CStr(readerLocal("tblKNA1_ZDIS.Ort"))
            Strasse = CStr(readerLocal("tblKNA1_ZDIS.Strasse"))
            PLZ = CStr(readerLocal("tblKNA1_ZDIS.PLZ"))
            DGVSuchen1_IV.Rows.Add(Zaehler, Debitor_ZDIS, Name1, PLZ, Ort, _
              Strasse)
            btnSuchenVP_IV.Text = Zaehler + " VP's gefunden"
            btnSuchenVP_IV.Refresh()
        Loop
 
        DGVSuchen1_IV.Refresh()
        If Debitor_ZDIS = "" Then
            DGVSuchen1_IV.Visible = False
            MsgBox("Keinen VP gefunden")
        End If
 
        DGVSuchen1_IV.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        DGVSuchen1_IV.Refresh()
 
        cmdLocal.Cancel()
        readerLocal.Close()
        conLocal.Close()
 
    End Function