→→→レコード数を取得

Dim Num As Interger
Dim cm As OleDb.OleDbCommand
Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection
cn.ConnectionString  = "Provider=Microsoft.Jet.OLEDB.4.0;" & 
                                "Data Source=D:\***.mdb;" &
                                "Persist Security Info =  False"
cn.Open()
cm = New OleDb.OleDbCommand("SELECT COUNT(*) FROM テーブル名" , cn )
Num = CInt( cm.ExecuteScalar )
cn.Close()
MessageBox.show( Num & "件です", "通知結果")

-------------------------------------------------
For Each カウント変数　In 配列名(コレクション名)
    文
Next カウント変数

--------------------------------------------------