Ora non mi da errore ma non riempie il datagrid avevo già risolto così:

codice:
Dim sql As String = "Select * from Commenti where id_post=" & id_post.Text
                'Apri la connessione()
                Dim myCommand As New OleDbDataAdapter(sql, conn)

                'Riempi(l) 'oggetto DataSet
                ds = New DataSet()
                myCommand.Fill(ds, "Commenti")

                'Crea(DataView)
                dv = New DataView(ds.Tables("Commenti"))
                dv.Sort = "id_commento"

                listacommenti.DataSource = dv
                'If Not Page.IsPostBack Then
                listacommenti.DataBind()
                'End If
ma non mi da il datagrip pieno