Vb6 DataGrid Related..

[prinson]

hi.
my question is i want to add new row each time on button click event to my
datagrid. my datagrid name is dtgEntry:

Code Looks like this.

Dim r As ADODB.RecordSet
Dim lCount As Long

Set r = New ADODB.RecordSet
If Val(txtQuantity.Text) > 0 And Val(txtRate.Text) > 0 Then

r.Fields.Append "Code", adVarChar, 10
r.Fields.Append "Product", adVarChar, 50
r.Fields.Append "Pur. Status", adVarChar, 30
r.Fields.Append "Quantity", adVarChar, 10
r.Fields.Append "Unit", adVarChar, 15
r.Fields.Append "Pieces", adVarChar, 15
r.Fields.Append "Rate Per.", adVarChar, 20
r.Fields.Append "Rate", adVarChar, 10
r.Fields.Append "Amount", adVarChar, 30
r.Fields.Append "Godown", adVarChar, 50
r.CursorType = adOpenDynamic
r.Open
r.AddNew

r.Fields(0).Value = txtProductCode.Text
r.Fields(1).Value = cboShortCode.Text
r.Fields(2).Value = cboStatus.Text
r.Fields(3).Value = txtQuantity.Text
r.Fields(4).Value = cboUnit.Text
r.Fields(5).Value = txtPieces.Text
If cboRatePerQuantity.Text = "QTY" Then
r.Fields(6).Value = "Q"
Else
r.Fields(6).Value = "P"
End If
r.Fields(7).Value = txtRate.Text
txtReturnAmount.Text = Format$(Val(txtQuantity.Text) * Val(txtRate.Text), "#0.00")
r.Fields(8).Value = txtReturnAmount.Text
r.Fields(9).Value = cboGodownName.Text
r.AddNew
Dim i As Integer
i = dtgEntry.Row --> The problem is here.

If i > 0 Then
For i = 0 To dtgEntry.Row - 1
If dtgEntry.RecordSelectors = True Then
dtgEntry.Row = i
dtgEntry.Col = i
dtgEntry.SetFocus

r.Fields(0).Value = Val(dtgEntry.Columns(0))
r.Fields(1).Value = dtgEntry.Columns(1)
r.Fields(2).Value = dtgEntry.Columns(2)
r.Fields(3).Value = Val(dtgEntry.Columns(3))
r.Fields(4).Value = dtgEntry.Columns(4)
r.Fields(5).Value = Val(dtgEntry.Columns(5))
r.Fields(6).Value = dtgEntry.Columns(6)
r.Fields(7).Value = Val(dtgEntry.Columns(7))
r.Fields(8).Value = Val(dtgEntry.Columns(8))
r.Fields(9).Value = dtgEntry.Columns(9)
r.AddNew
End If
Next
End If

Set dtgEntry.DataSource = r

'txtTotalQty.Text = Format$(txtQuantity.Text, "#0")
'Line1:
'Line2:

txtPurchase.Text = Val(txtPurchase) + Val(txtReturnAmount)
If cboPurchaseNo.Text <> "" Then
txtPurchase.Text = Val(GrossTot)
End If
If cboParty.Text <> "" Then
txtPurchase.Text = Val(GrossTot)
End If
txtTotalQty.Text = Val(txtTotalQty) + Val(txtQuantity)
If cboPurchaseNo.Text <> "" Then
txtTotalQty.Text = Val(TotQty)
End If
txtNetAmountRs.Text = Format$(Val(txtPurchase.Text) + Val(txtExciseRs.Text) - Val(txtDiscountRs.Text) + Val(txtAddLessRs.Text) + Val(txtTaxRs.Text) + Val(txtSurchargeRs.Text), "#0.00")

Else
MsgBox "Please enter appropriate quantity and rate!!"
End If
-----------------------------

The Problem is i = dtgEntry.Row here. After i add three rows and try to add some more than i returns 0 even though there are rows available in datagrid.

I want to add more rows in datagrid without any limit.