A parte il fatto che hai scritto Datagrid nel titolo ma invece stai usando un ListView...
...scrivere non funziona non significa nulla.
Devi dare qualche indicazione più precisa.

Oltretutto non è corretto scrivere:

Dim rs As New ADODB.Recordset


Ma separare dichiarazione e assegnazione.

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset