[أبو خالد الشكري]

وعليكم السلام ورحمة الله وبركاته
جرب الكود التالي :

كود :

      Dim query As String
       query = "SELECT EMPLOYE FROM Table1 WHERE EMPLOYEFACTORY = N'الورشة' ORDER BY NEWID()"

       Using DA As New SqlDataAdapter(query, Conne)
           DA.Fill(DT)
       End Using

وجرب كذلك الكود  التالي بإضافة الوقت Time

كود :

Dim query As String
query = "SELECT EMPLOYE FROM Table1 WHERE EMPLOYEFACTORY = N'الورشة' ORDER BY RND(-(100000*Id)*Time())"

Using DA As New SqlDataAdapter(query, Conne)
   DA.Fill(DT)
End Using