ADOを使ってAccessのmdbのレコードを表示させるサンプル

Public Class Form1

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

Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim i As Integer

Cn = New ADODB.Connection
Cn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data _
Source=" & VB6.GetPath & "\Test.mdb;"

Cn.Open()
Rs = Cn.Execute("SELECT * FROM test", , ADODB.CommandTypeEnum.adCmdText)

Rs.MoveFirst()

i = 0
Do Until Rs.EOF

i = i + 1

If Microsoft.VisualBasic.IsDBNull(Rs.Fields(2).Value) <> True Then

MsgBox(Rs.Fields(2).Value)

End If

Rs.MoveNext()

Loop

' record 数の表示
MsgBox(i)

End Sub
End Class