Ho una datagrid e devo collegare il datafield con i campi della query

codice:
Dim cn As ADODB.Connection
 Dim rs As ADODB.Recordset
 Dim count As String
 Set cn = New ADODB.Connection
 Set rs = New ADODB.Recordset
 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database\conto_corrente.mdb;Persist Security Info=False"
 rs.Open "SELECT * FROM banche, conto_corrente WHERE id_utente = " & id_utente & "  AND conto_corrente.id_banca = banche.id_banca", cn, 1
 txt_nome.Text = rs("nome").value
 txt_cogn.Text = rs("cognome").value
 txt_num.Text = rs("id_conto").value
 txt_banca.Text = rs("denominazione").value
 lbl_salatt.Caption = rs("saldo").value
 sql = "SELECT * FROM azioni WHERE id_conto = " & txt_num.Text & ""
 Set rs = cn.Execute(sql)
 Set grid_spese.DataSource = rs
 grid_spese.Columns(0).DataField = rs("descrizione")
 grid_spese.Columns(0).Caption = "Descrizione"
 grid_spese.Columns(0).Width = 5350
 grid_spese.Columns(1).DataField = rs("tipo")
 grid_spese.Columns(1).Caption = "Tipo"
 grid_spese.Columns(1).Width = 1400
 grid_spese.Columns(2).DataField = rs("data")
 grid_spese.Columns(2).Caption = "Data"
 grid_spese.Columns(2).Width = 1400
 grid_spese.Columns(3).DataField = rs("Importo")
 grid_spese.Columns(3).Caption = "Importo"
 grid_spese.Columns(3).Width = 1400
Quando fa la Set grid_spese.DataSource = rs mi dice che è impossibile assegnare segnalibri al gruppo di righe :berto: :berto:

Grazie a tutti