[سعود]

كود :

sqlstrst1 = "SELECT * FROM [usrs]"
        const1.Open()
        Dim dast1 As New OleDbDataAdapter(sqlstrst1, const1)
        dast1.Fill(datasetst1, "usrs")

        Dim dtst1 As New DataTable
        dtst1 = datasetst1.Tables.Item("usrs")
        dtgst1.DataSource = datasetst1.Tables("usrs")


        const1.Close()
        ' dast1.Dispose()
        ' datasetst1.Clear()

شوف التعديل

---

السبب هو:

كود :

' dast1.Dispose()
        ' datasetst1.Clear()