Dim dir As String
dir = "C:\Users\PC - STUDIO\Documents\ADESA"
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & dir & "\DB_ADESA.mdb"
Dim Rs As New ADODB.Recordset()
Dim Cn As New ADODB.Connection()
Cn.Open(stringa)
Rs.Open("SELECT [ID],[CODICE] FROM GARE_T ", Cn, 3, 3)
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter()
Dim dt As DataTable = New DataTable
myDA.Fill(dt, Rs)
DataGridView1.DataSource = dt
Rs = Nothing
Cn.Close()
Cn = Nothing
Ho fatto cosi' ma lo scorrere delle righe rimane e n più la DGV ssi popola con righe vuote