Dim MyDBAnno As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & pathMDb )
schemaTable = MyDBAnno.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, "DocuTesta", Nothing})
For i = 0 To schemaTable.Rows.Count - 1
            ListBox1.Items.Add(schemaTable.Rows(i)!COLUMN_NAME.ToString & " : " & schemaTable.Rows(i)!DATA_TYPE.ToString)
Next i