مشکل در دیتاگراید

[mohandess le]

مادر بانکمون یه جدول پیام داریم که یکی ازفیلدهای آن reciverیعنی دریافت کننده ی پیام است ویکی دیگر ازفیلدهاش زمان ذخیره سازی پیام به نامdatesaveویک فیلد دیگر به نام dateدارم که زمان اعتبارپیام به ساعت است من میخواهم ابتداپیام های تاریخ گذشته از دیتابیس deleteکنم وسپس پیام های مربوط به reciverرادرgrideنمایش دهم ولی باکدهایی که نوشتم بعضی مواقع جواب میدهد یه جای کارم ایراد داره لطفا مراراهنمایی کنید کارم لنگ این تیکه مونده.کدهاروبراتون نوشتم

Me.Message1TableAdapter.Fill(Me.Project3DataSet1.m essage1)
DataGridView1.AutoGenerateColumns = False
DataGridView1.AllowUserToAddRows = True
DataGridView1.BackgroundColor = Color.Aquamarine
DataGridView1.ReadOnly = True

Dim a As String
Dim b As String
Dim filenum As Integer = FreeFile()

Dim user1 As user
FileOpen(filenum, "C:\Documents and Settings\reza\My Documents\Visual Studio 2010\Projects\project2\project2\user.txt", OpenMode.Random)
user1 = New user
FileGet(filenum, user1, 1)
a = user1.username
b = user1.password
FileClose()
curentuser.state(a, "frmreci", Now)
Dim strcon As String = "Data Source=REZA-41C7CB8CA6;Initial Catalog=project3;Integrated Security=True"
Dim dr As SqlDataReader
Dim cmd1 As New SqlCommand
Dim str1 As String

Dim con8 As New SqlConnection(strcon)
str1 = "select* from [message1] where receiver='" & a & "'"
cmd1 = New SqlCommand(str1, con8)
con8.Open()
dr = cmd1.ExecuteReader()
dr.Read()
While (dr.Read())
Dim id As String = dr("id")
Dim d As Double = Convert.ToDouble(dr("date"))
Dim f As Date = dr("datesave")

Dim sumd As Date = DateAdd(DateInterval.Hour, d, f)
Dim n As Date = Now
Dim result As Long = DateDiff(DateInterval.Hour, sumd, n)
Dim cmd2 As New SqlCommand
Dim con2 As New SqlConnection(strcon)
MessageBox.Show(result)

If result > 0 Then
Dim st3 As String = "delete from [message1] where id='" & id & "'"
cmd2 = New SqlCommand(st3, con2)
con2.Open()
cmd2.ExecuteNonQuery()
con2.Close()
End If
End While
dr.Close()
con8.Close()
Dim da As New SqlDataAdapter
Dim project3dataset4 As New DataSet

Dim str As String
str = "select * from [message1] where receiver='" & a & "'"
Dim da1 As SqlDataAdapter = New SqlDataAdapter(str, con8)
Dim ds1 As DataSet = New DataSet
da1.Fill(ds1, "message1")
DataGridView1.DataBindings.Add(New Binding("datasource", ds1, "message1"))

con8.Close()