Private Sub DataBindGrid()

  Dim Conn As New OleDB.OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;")
  Dim Cmd As New OleDB.OleDBCommand("SELECT * From [Tabella] order by [Campo]", Conn)
  Dim DA As New OleDB.OleDBAdapter(Cmd)
  
  Dim DT As New DataTable("Tabella")
  
  Conn.Open()
  
  DA.Fill(DT)
  
  Conn.Close()
  
End Sub