سلام
Try
Dim Sqlcon As New SqlConnection
Dim SqlCmd As New SqlCommand
Dim Sqlda As New SqlDataAdapter
Dim Sqldt As New DataTable
'تعريف کانکشن استرينگ
Sqlcon.ConnectionString = "Data Source=.;Initial Catalog=chat;Integrated Security=True"
SqlCmd.Connection = Sqlcon
SqlCmd.CommandText = "delete from tbl_name" 'دستور اس کي ال
Sqlda.SelectCommand = SqlCmd
Sqlcon.Open() 'باز کردن بانک
Sqlda.Fill(Sqldt)
DG.DataSource = Sqldt 'پر کردن ديتاگريد
Sqlcon.Close() 'بستن بانک
Catch ex As Exception
MsgBox("Error : " & ex.Message, MsgBoxStyle.Exclamation)
End Try
موفق باشید