نمایش تعداد سطر های یک جدول در یک تکست باکس در فرم

[alinux031]

سلام دوستان من می خواهم در هنگام ثبت نامه در یک نرم افزار دبیرخانه هنگام انتخاب تاریخ ثبت سیستم بصورت خودکار نامهایی که برای آن تاریخ ثبت شده است جستجو شود و تعداد آن بدست آید و در یک تکست باکس قرار گیرد مثلا کاربر در هنگام ثبت نامه جدید تاریخ نامه را 1392/5/12 انتخاب میکند و در یکی از تکست باکس های موجود در فرم این رشته قرار میگیرد "110-90" که 110 تعداد نامه های که از قبل برای سال 90 ثبت شده است بعلاوه یک می باشد چطور باید اینکار را کرد؟
برای جدول اینجو پروسیجری نوشتنم
ALTER PROCEDURE dbo.StoredProcedure13
/*
(
@parameter1 int = 5,
@parameter2 datatype OUTPUT
)
*/
@letter_filter nvarchar(20)
AS
/* SET NOCOUNT ON */
select count(*) as expr1
from letter1
where (letter_sabt like '@letter-filter')
RETURN

ولی هنگام فراخوانی در فرم خروجی ندارد و ایراد می گیرد(خط 162 تا 166)
Imports System.IO
Imports bal
Imports business_entity
Public Class sabt_letter
#Region "Variables"
Dim obj_member As letterbal
Dim Member As New entsabt
#End Region
#Region "Function"
Sub clearAll()
txtradif.Clear()

txtsader.Clear()
txtgirande.Clear()
txtdastor.Clear()

txtsabt.Clear()

txttabaghe.Text = ""
txtpeyvast.Clear()

End Sub
#End Region

#Region "FORM_LOAD"
Private Sub sabt_letter_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
obj_member = New letterbal(My.Settings("conasli"))
DataGridView1.DataSource = obj_member.fill



End Sub
#End Region

#Region "TEXTBOXS_KEYDOWN"
Private Sub txtradif_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtradif.KeyDown
If e.KeyData = Keys.Enter Then
txtparvande.Focus()
End If
End Sub

Private Sub txtparvande_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyData = Keys.Enter Then
txtsader.Focus()
End If
End Sub
Private Sub txtsader_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtsader.KeyDown
If e.KeyData = Keys.Enter Then
txtgirande.Focus()
End If
End Sub
Private Sub txtgirande_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtgirande.KeyDown
If e.KeyData = Keys.Enter Then
txtdastor.Focus()
End If
End Sub
Private Sub txtdastor_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtdastor.KeyDown
If e.KeyData = Keys.Enter Then
txttarikhn.Focus()
End If

End Sub

Private Sub txttarikhn_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyData = Keys.Enter Then
txtsabt.Focus()

End If
End Sub

Private Sub txtsabt_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtsabt.KeyDown
If e.KeyData = Keys.Enter Then
txttarikhs.Focus()
End If
End Sub

Private Sub txttarikhs_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyData = Keys.Enter Then
txttabaghe.Focus()
End If
End Sub

Private Sub txttabaghe_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txttabaghe.KeyDown
If e.KeyData = Keys.Enter Then
txtpeyvast.Focus()
End If
End Sub

Private Sub txtpeyvast_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpeyvast.KeyDown
If e.KeyData = Keys.Enter Then
insert.Focus()
End If
End Sub


#End Region

#Region "BUTTONS"
Private Sub leave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles leave.Click
Close()
End Sub

Private Sub insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles insert.Click



Try
ErrorProvider1.Clear()
If txtradif.Text = "" Then
ErrorProvider1.SetError(txtradif, "ردیف را وارد کنید")
ElseIf txtparvande.Text = "" Then
ErrorProvider1.SetError(txtparvande, "شماره پرونده را وارد کنید")
ElseIf txtsader.Text = "" Then
ErrorProvider1.SetError(txtsader, "صادر کننده را وارد کنید")
ElseIf txtgirande.Text = "" Then
ErrorProvider1.SetError(txtgirande, "گیرنده را وارد کنید")
ElseIf txtdastor.Text = "" Then
ErrorProvider1.SetError(txtdastor, "دستور را وارد کنید")


ElseIf txtsabt.Text = "" Then
ErrorProvider1.SetError(txtsabt, "شماره ثبت را وارد کنید")

ElseIf txtpeyvast.Text = "" Then
ErrorProvider1.SetError(txtpeyvast, "پیوست را وارد کنید")

Else


'''''''entesabe maghadir member'''''''''''
Member.letter_id = txtradif.Text
Member.letter_by = txtsader.Text
Member.letter_to = txtgirande.Text
Member.letter_time = txttarikhn.Text
Member.letter_state = txtdastor.Text
Member.letter_parvande = txtparvande.Text
Member.letter_sabt = txtsabt.Text
Member.letter_tsabt = txttarikhs.Text
Member.letter_peyvast = txtpeyvast.Text
Member.letter_tabaghe = txttabaghe.Text

''''''''''''''''''''''''''''''''''''''''''''
obj_member.insert(Member)
DataGridView1.DataSource = obj_member.fill()
clearAll()
MsgBox(" اطلاعات نامه جدید با موفقبت اضافه شد", MsgBoxStyle.Information, "")

End If

Catch ex As Exception
MsgBox("خطا در ثبت اطلاعات:اطلاعات نامه را به درستی وارد نمایید", MsgBoxStyle.Critical, "هشدار")
End Try
End Sub

#End Region
Private Sub MaskedTextBoxAdv2_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs)

End Sub



Private Sub txttarikhs_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txttarikhs.Leave

txtsabt.Text = "ali"
txtradif.Text = obj_member.filter("90")
End Sub



Private Sub txttarikhs_ValueChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Handles txttarikhs.ValueChanged

End Sub

Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

End Sub

Private Sub txtsabt_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles txtsabt.MaskInputRejected

End Sub

Private Sub GroupPanel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupPanel1.Click

End Sub
End Class

[hosein320]

سلام
حداقل بنویسید چه خطایی میده
کد دوم که به نظر صحیح میاد

[alinux031]

تابعی که نوشتم خروجی ای (که همان تعداد سطر می باشد)نمی دهد ارور را در زیر نوشتم:
expression does not produce a value