Public Sub lstFuncIdNome(ByVal l As ListView, ByVal nome As String)
l.Items.Clear()
Dim dsMov As DataSet
Dim sql As String = ""
sql = "select func_id,apelido,func_nome,func_contacto from funcionario where nome like '" & nome & "%'" ' or apelido like '%" & nome & "%')" ' and id like '" & id & "%' order by nome asc"
dsMov = func.getStudentData(sql)
For k As Integer = 0 To dsMov.Tables("data").Rows.Count - 1 ----- this is error line code "Object reference not set to an instance of an object."
lstview = l.Items.Add(dsMov.Tables("data").Rows(k)("func_id").ToString)
lstview.SubItems.Add(dsMov.Tables("data").Rows(k)("func_nome").ToString + " " + dsMov.Tables("data").Rows(k)("apelido").ToString)
Try
lstview.SubItems.Add(dsMov.Tables("data").Rows(k)("func_contacto").ToString)
Catch ex As Exception
lstview.SubItems.Add("")
End Try
Next
dsMov.Clear()
End Sub