'▼データ取得 Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\Animals.mdb") Dim SQLCm As OleDbCommand = Cn.CreateCommand Dim Adapter As New OleDbDataAdapter(SQLCm) Dim Table As New DataTable '説明の五十音順に並び替える。 SQLCm.CommandText = "SELECT 説明 FROM T_目マスタ ORDER BY 説明" Adapter.Fill(Table) '▼値の表示 Dim Value As String '先頭の値を表示 Value = Table.Rows(0)("説明") MsgBox(Value) '▼値の表示 DataGridView1.DataSource = Table '▼後処理 Table.Dispose() Adapter.Dispose() SQLCm.Dispose() Cn.Dispose()