メモ

Imports System.Data.OleDb

Public Class frmTop

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       '▼データ取得
       Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test\samp.mdb")
       Dim SQLCm As OleDbCommand = Cn.CreateCommand
       Dim Adapter As New OleDbDataAdapter(SQLCm)
       Dim Table As New DataTable

       SQLCm.CommandText = "SELECT 社員番号,社員氏名,性別,登録日,貯金 FROM 社員テーブル"
       Adapter.Fill(Table)

       '▼値の表示
       Dim Value(4) As String

       ' 行カウンタ
       For Each Row As DataRow In Table.Rows

           ' 列カウンタ
           For i As Integer = 0 To Table.Columns.Count - 1

               Value(i) = Row(i)

           Next

       Next

       '▼後処理
       Table.Dispose()
       Adapter.Dispose()
       SQLCm.Dispose()
       Cn.Dispose()

   End Sub

End Class