[الجندى]

ما قمت أنا به هو إنشاء متغير سميته qrec على مستوى المشروع ككل يعنى وضعته فى موديول
وهذا هو كود الموديول

كود :

Public qrec As Integer
ثم كود الاتصال هو
  Public Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\saveDate.mdb")

....................................................................................................................................................
وفى حدث الفورم لود
كتبت هذا الكود

كود :

qrec =0

..............................................................................................................................
وفى حدث زر التالى كتبت هذا الكود

كود :

qrec = qrec + 1


Dim LSQL As String = "select * from qustions"
Dim LAdapter As New OleDbDataAdapter(LSQL, Con)

        Dim LDataSet As New DataSet
        Dim RowsCount As Integer
        If Con.State = ConnectionState.Closed = False Then Con.Close()

        Con.Open()
      
LAdapter.Fill(LDataSet, "LoadingData")
  TextBox1.Text = LDataSet.Tables("LoadingData").Rows(qrec).Item("qus")
            Button1.Text = LDataSet.Tables("LoadingData").Rows(qrec).Item("ats")
            Button2.Text = LDataSet.Tables("LoadingData").Rows(qrec).Item("a1")

حيث qts و ,a1 اسماء الحقول فى الجدول loadingdata