Schema - Lettura Campi Recordset

Private Sub List1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles List1.Click

Dim Cnn1 As New ADODB.Connection
Dim M As Integer = 0
For I = 0 To List1.Items.Count - 1
If List1.GetSelected(I) = True Then
Cnn1.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dir2.Path & "\" & Label3.Text & ";Jet OLEDB:Database Password=''")
On Error GoTo ErrorHandler


Dim rstSchema As New ADODB.Recordset




rstSchema.Open("Select * from " & List1.Items(I), Cnn1, 3, 3)

List2.Items.Clear()
For M = 0 To rstSchema.Fields.Count - 1


List2.Items.Add(rstSchema.Fields(M).Name)

Next


rstSchema.Close()
Cnn1.Close()
rstSchema = Nothing
Cnn1 = Nothing
Exit Sub

ErrorHandler:

End If
Next
End Sub