>>450
Dim con As New OleDbCommand()
Dim dr As OleDbDataReader
です。
お長居します。