[elgokr]

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

استخدم الكود بهذا الشكل افضل

كود :

   Public Sub filldatg(ByVal dg As DataGridView, ByVal qurey As String)
       Using cmd As OleDbCommand = New OleDbCommand(qurey, con)
           Using DataAdapter = New OleDbDataAdapter(cmd)
               Dim dt As New DataTable
               dt.Clear()
               DataAdapter.Fill(dt)
               dg.DataSource = dt
           End Using
       End Using
   End Sub

وعند التعبئة سيكون

كود :

filldatg(DataGridView1, "Select * From tt1")

وبكده انت لا تحتاج الى ريسيت او تفريغ اى شئ

تحياتى لك

وتمنياتى لك التوفيق