Dim darhost As String

        darhost = "Select " & cmbSutunho.Text & " From " & cmbJadval.Text & " Where " & cmbSutunhoShart.Text & cmbShart.Text & txtQimmat.Text

        MsgBox(darhost)

        Debug.Print(darhost)

        Dim cn = New OleDbConnection("Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=E:\Level1.mdb")
        cn.Open()

        Dim sql As New OleDbCommand(darhost, cn)

        Dim rs As OleDbDataReader = sql.ExecuteReader

        Dim jadval As New DataTable

        jadval.Columns.Add(rs.GetName(0))
        'jadval.Columns.Add(rs.GetName(1))
        'jadval.Columns.Add(rs.GetName(2))
        'jadval.Columns.Add(rs.GetName(3))
        'jadval.Columns.Add(rs.GetName(4))

        While rs.Read = True
            jadval.Rows.Add(New String() {rs.GetValue(0), rs.GetValue(1), rs.GetValue(2), rs.GetValue(3)})
        End While

        rs.Close()
        cn.Close()

        dgvSelect.DataSource = jadval