Visual Basic - error "no cohiciden los tipos"

esta en el modulo de manera publica

Public Sub grilla_list(n As Integer, ob As Object)
If n = 1 Then
ob.Cols = rs.Fields.Count
Dim x As Integer
For x = 0 To ob.Cols - 1
ob.TextMatrix(0, x) = rs.Fields(x).Name
Next
ob.Rows = 1
Do While Not rs.EOF
ob.Rows = ob.Rows + 1
For x = 0 To ob.Cols - 1 Step 1
ob.TextMatrix(ob.Rows - 1, x) = rs(x)>>>>>>>>>>>>error no cohinciden los tipos
Next
rs.MoveNext
Loop
Else

ob.AddItem rs(0)

End If
End sub

al arrojar datos a la grilla con esta consulta en el formulario me sale ese error anterior

sql = "select area,count(area)as total from cliente_final"
sql = sql & " group by area"
rs.Open sql, cnn, 1, 2, adCmdText
If Not rs.EOF Then
Do While Not rs.EOF
grilla_list 1, grd_e

Loop
End If
rs.Close

pero con otras consultas similares no me sale el error....los datos a arrojar son de tipo texto no se por que me sale el error solo con esa consulta ,voy a poner una consulta que no me arroja errores

sql = "select proceso,count(proceso)as cantidad from cliente_final"
sql = sql & " group by proceso"
rs.Open sql, cnn, 1, 2, adCmdText
If Not rs.EOF Then
Do While Not rs.EOF
grilla_list 1, grd_e

Loop
End If
rs.Close

me parece que el error esta en el tipo de dato que tiene el campo area que no puede ser contado. en que linea exactamente te da el error?

>>>>>>>>>>>>> asi esta marcado el error

rs(x)=nulo; ese es el valor de la variable!