Visual Basic - mostrar los datos en listview

hola nuevamente

tengo esta siguiente duda
tengo un listview en donde muestro mis datos
1 los muestro por fecha
2 los muestro por medicamento

pero ahora le quiero agregar un nuevo command en donde me muestre todos
los datos que tenga la Base de datos con una tabla especificada...
pero nose como hacerla...

eso seria
y gracias por la ayuda...

Saludos

Sub Cargar_ListView(ListView As ListView)

Dim Campo As Integer

On Error GoTo ErrSub

'Variable para los SubItem del LV
Dim Item As ListItem
Dim i As Long

'Nuevo objeto Connection y objeto Recordset
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection

'Abre la base de datos
cnn.Open ("tu cadena de coneccion")

'Llena el Recordset
rst.Open "select campos from tabla where condicion, cnn, adOpenStatic, addlockoptimistic

With ListView
'Vista de reporte
.View = lvwReport
' Elimina los item y los encabezado de columna
.ListItems.Clear
.ColumnHeaders.Clear
End With

'Cambiamos el puntero del raton, esto es opcional
Me.MousePointer = vbHourglass

'Agrega los nombres campo junto con los encabezados de columna para el listView
For Campo = 0 To rst.Fields.Count - 1
ListView.ColumnHeaders.Add , , rst.Fields(Campo).Name
Next

' Recorre todos los registros del Recordset
While Not rst.EOF
'Agrega el Item
Set Item = ListView.ListItems.Add(, , rst.Fields(0))
i = 1

'Agrega los SubItem al ListView mediante la variable ITEM
For Campo = 1 To rst.Fields.Count - 1

'si el dato no es de tipo Null lo agrega
If Not IsNull(rst.Fields(Campo)) Then
Item.SubItems(i) = rst.Fields(Campo)
End If
i = i + 1
Next

'Siguiente registro
rst.MoveNext
Wend

Me.MousePointer = vbDefault

Exit Sub
'Error
ErrSub:

MsgBox Err.Description, vbCritical, "Error"
Me.MousePointer = vbDefault
End Sub

espero te sirva de algo......

se me olvido colocar q estoy utilizando Dao

Disculpen!!!!!