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

الله يبارك فيك أخي العزيز
جرب الكود التالي ، عسى يشتغل إن شاء الله .

كود :

Dim query As String
Dim factoryName As String = "الورشة"

query = "SELECT EMPLOYE FROM Table1 WHERE EMPLOYEFACTORY = CONVERT(uniqueidentifier, @FactoryName) ORDER BY NEWID()"

Using DA As New SqlDataAdapter(query, Conne)
   DA.SelectCommand.Parameters.AddWithValue("@FactoryName", factoryName)
   DA.Fill(DT)
End Using