[gharib]

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim conStr As String = "provider=Microsoft.Jet.oledb.4.0; Data source=" & Application.StartupPath & "\asc.mdb"
    Dim conn As New OleDbConnection(conStr)
    Dim dataset1 As New DataSet

    Dim sqlstrnp As String = " select* from 1 "


    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        conn.Open()
        Dim dataadapter1 As New OleDbDataAdapter(sqlstrnp, conn)
        dataadapter1.Fill(dataset1, "1")
        conn.Close()

        TextBox1.DataBindings.Add("text", dataset1, "1.الوتد")
        TextBox2.DataBindings.Add("text", dataset1, "1.المصب")
        TextBox3.DataBindings.Add("text", dataset1, "1.جريانه")
        TextBox4.DataBindings.Add("text", dataset1, "1.المسافة")
        TextBox5.DataBindings.Add("text", dataset1, "1.التجزئة")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.BindingContext(dataset1, "1").Position = 0
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.BindingContext(dataset1, "1").Position += 1
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.BindingContext(dataset1, "1").Position -= 1
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.BindingContext(dataset1, "1").Position = Me.BindingContext(dataset1, "1").Count - 1
    End Sub
   
   
    
End Class

---

الاخوة الافاضل السلام عليكم
ما سبق هو كود للاتصال بقاعدة بيانات ascو هي تحوي على عدد كبير من الجداول الغير مرتبطة ببعضها 150 جدول و احيانا اكثر
من خلال الكود السابق تم الاتصال بالجدول رقم 1 و تمت معالجته
و المطلوب كود لكي انتقل للجدول التالي اي تصبح قيمة 1            هي           2 و هكذا حتى الانتهاء من كل الجداول
و جزاكم الله كل خير
يرجى تبديل اتجاه النص لقراءة الكود بشكل صحيح