→→→テキストボックス

Dim dSet As DataSet = New DataSet

Dim dAdp As OleDbDataAdapter

Dim ocn As OleDbConnection = New OleDbConnection

ocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;

                                  Data Source = D:\**.mdb; Persist Security Info=False"

dAdp = New OleDbDataAdapter("SELECT * FROM テスト", ocn )

dAdp.Fill( dSet , "t_テスト" )

TextBox1.DataBindings.Add("Text" , dSet.tables("t_テスト") , "コード")

TextBox2.DataBindings.Add("Text" , dSet.tables("t_テスト") , "製品")

Add.(プロパティ名 , テーブル名 , フィールド名)

次のレコードを表示

Me.BindingContext.Item(  ).Position += 1