Visual Basic - Ayuda con datagrid VB 6.0

Hola Expertos,Estoy creando un programa en Visual Basic 6.0 un programa para una iglesia que guarde cada diezmo de cada persona registrada,pero cada usuario q guarde su diezmo le quede guardado en su cuenta persona y cada usario tenga su cuenta de cuanto lleva diezmado.

este es el codigo de programacion hacia el datagrid

Private Sub Cargar_Grid_D(Filtro, NumSemana As String)

DataEnvironment1.rsCommand3.Open "SELECT ('ww',[Fecha],2.2) AS NumSemana, Fecha, Format(monto,'Standard') AS monto From Diezmo GROUP BY ceddiezmo, DatePart('ww',Fecha,2.2), Fecha, Format(monto,'Standard') Having ceddiezmo =" & Filtro & " ORDER BY Fecha"




Set DataGrid1.DataSource = DataEnvironment1.rsCommand3


DataGrid1.Columns(0).Alignment = dbgCenter
DataGrid1.Columns(1).Alignment = dbgCenter
DataGrid1.Columns(2).Alignment = dbgRight
DataGrid1.Columns(0).Caption = "Nro de Mes"
DataGrid1.Columns(1).Caption = "Fecha"
DataGrid1.Columns(2).Caption = "Monto"





DataGrid1.Refresh


sumas


End Sub
Private Sub sumas()
i = 0
suma = 0
Row = DataGrid1.ApproxCount


For i = 0 To Row - 1

DataGrid1.Col = 2
DataGrid1.Row = i

suma = DataGrid1.Text + suma

Next i

Text1.Text = Format(suma, "Standard")
Total_Imp = Text1.Text
End Sub

Entonces cuando voy a inserta un nuevo diezmo llamo a Data grid desde command11_click me sale este error

Private Sub Command11_Click()
Diezmo.Show vbModal
Cargar_Grid_D (txtCedula) (aqui sale el error me dice el Argumento no es opcional)
End Sub

Please Necesito ayuda con ese error ya que estoy terminando mi programa

La funcion Cargar_Grid_D ....LLEVA 2 PARAMETROS OBLIGATORIOS, el filtro y la semana

trata de poner lo que vas a aescribir en comillas y parentesis ejemplo Cargar_Grid_D ("txtCedula") ("aqui sale el error me dice el Argumento no es opcional")
colocalo asi.... queria hacerte una pregunta si tienes el codigo para imprimir por crytal report 8.0 me lo pasas si lo tienes