[سعود]

اذا تقصد فكرة عامة
فاذا ربطت عن طريق داتاتايبل فتحتاج كود بسيط كالتالي

PHP كود :

       Me.BindingContext(dt).Position = Int(Rnd() * dt.Rows.Count - 1) 


---

PHP كود :

Public Class Form1
    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
    Dim da As New OleDb.OleDbDataAdapter("select * from tb", con)
    Dim dt As DataTable
    Private Sub gd()
        dt = New DataTable
        da.Fill(dt)
        gp()
        tid.DataBindings.Add("text", dt, "tid")
        tname.DataBindings.Add("text", dt, "tname")
        dt.Dispose()
    End Sub
    Private Sub gp()
b:
        Dim p As Integer = Int(Rnd() * dt.Rows.Count - 1)
        If Me.BindingContext(dt).Position = p Then GoTo b
        Me.BindingContext(dt).Position = p
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        gp()
    End Sub
End Class 


  وهذا كلاس المثال