ROUTINE PER RICERCA

            DataTable tblColonne; 
            SqlConnection  Cn = new SqlConnection("data source=...
            SqlDataAdapter Da = new SqlDataAdapter(Cn);
            Da.SelectCommand = "select * from tabella where 1=-1";
            Da.Fill(tblColonne);

            foreach (DataColumn col in tblColonne.Columns){
                if (tblColonne.Columns[zI].ColumnName == "cercata" ...

Dim tblColonne As DataTable
Dim Cn As SqlConnection = New SqlConnection("data source=...")
Dim Da As SqlDataAdapter = New SqlDataAdapter(Cn)
Da.SelectCommand = "select * from tabella where 1=-1"
Da.Fill(tblColonne)
For Each col As DataColumn In tblColonne.Columns
    If (tblColonne.Columns(zI).ColumnName = "cercata") Then
....