Inserting Row in a List (collection)

[arunglobal]

Dim list As Collection

While count < list.Count
If DataGrid2.Item(count, 0) Then
tmpobjEmp = list.Item(cnt)
If tmpobjEmp.m_empid = DataGrid2.Item(count, 1) Then

tmpobjEmpins = New Employee
m_empid = 0
m_empname = &quot;&quot;
m_empsal = 0.0
m_isins = False
m_isupd = False

tmpobjEmpins.Empid = CInt(m_empid)
tmpobjEmpins.Empname = CStr(m_empname)
tmpobjEmpins.EmpSal = CDbl(m_empsal)
tmpobjEmpins.m_isins = CBool(m_isins)
tmpobjEmpins.m_isupd = CBool(m_isupd)
list.Add(tmpobjEmpins, Nothing, tmpobjEmp, Nothing) this is not working
Exit While
End If
End If
count = count + 1
cnt = cnt + 1
End While

i just want insert a row into collection

can any one help me.....
thanks in advance