OleDbDataAdapter.Fillでレコード取得[VB 2008 / 2010]

Option Strict On Imports System.Data.OleDb Public Class Form1 '********************************************************************* ' 検索ボタン押下処理 '********************************************************************* Private Sub Button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Try Using con As New OleDbConnection Using cmd As New OleDbCommand ' 接続