llenado de grilla

[pekeña]

esta grilla es para 10 ingresos tengo una para dos y me funciona bien pero esta me lansa error ..


Private Sub enc_grilla()
msitem.Clear
msitem.Rows = 1
msitem.Rows = 2
msitem.Rows = 0

msitem.Col = 0
msitem.ColWidth(0) = 1200
msitem.ColAlignment(0) = 4
msitem.Text = "Numero DI"

msitem.Col = 1
msitem.ColWidth(1) = 2500
msitem.ColAlignment(1) = 4
msitem.Text = "Fecha"

msitem.Col = 2
msitem.ColWidth(0) = 1200
msitem.ColAlignment(0) = 4
msitem.Text = "Rut Empresa"---------------> aki

msitem.Col = 3
msitem.ColWidth(1) = 2500
msitem.ColAlignment(1) = 4
msitem.Text = "CRT"



msitem.Col = 4
msitem.ColWidth(0) = 1200
msitem.ColAlignment(0) = 4
msitem.Text = "Rut Transportista"

msitem.Col = 5
msitem.ColWidth(1) = 2500
msitem.ColAlignment(1) = 4
msitem.Text = "Empresa"

msitem.Col = 6
msitem.ColWidth(0) = 1200
msitem.ColAlignment(0) = 4
msitem.Text = "Estado DI"

msitem.Col = 7
msitem.ColWidth(1) = 2500
msitem.ColAlignment(1) = 4
msitem.Text = "Transportista"

msitem.Col = 8
msitem.ColWidth(0) = 1200
msitem.ColAlignment(0) = 4
msitem.Text = "Item"

msitem.Col = 9
msitem.ColWidth(1) = 2500
msitem.ColAlignment(1) = 4
msitem.Text = "Knetos"
End Sub