Private Sub SearchDOK()
 
 
 
 
        Dim strcom1 = combo1.SelectedValue
        Dim strcom2 = combo2.SelectedValue
        Dim strprogname = txtbox2.Text.Trim
        Dim strKHnr = txtbox1.Text
 
        Dim DataSource = "BOSSHB.o_ibsd99.A_IBSPRG"
 
 
        Dim sql As String = "Select * from o_IBSD99.A_IBSPRG where ibea = " & _
          strKHnr & " and  ib26a  = '" & strcom1 & "' and ib27a = '" & strcom2 _
          & "' and ucase(ib28a) like '%" & strprogname & "%' "
        Dim cmd As New OleDbCommand(sql, OleDbConnection1)
        Dim oleda As New OleDbDataAdapter(cmd)
 
 
 
        Try
            OleDbConnection1.Open()
 
            MsgBox(ControlChars.Cr & "DerProvider:" & OleDbConnection1.Provider _
              & ControlChars.Cr & "Die Datenquelle: " & _
              OleDbConnection1.DataSource)
 
            DseNachlaufprogramme.Clear()
 
 
            oleda.Fill(Me.DseNachlaufprogramme.Tables("test"))
 
            'grdData.Refresh()
 
            grdData.DataSource = DseNachlaufprogramme.Tables("test")
 
 
 
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
 
 
            OleDbConnection1.Close()
        End Try
 
 
 
    End Sub