cargar desde un datapicker un listview con datos de un bd

[cindycpc3]

hola lokoman logre solucionar, si debia anexar un boton y en el evento click hacer el llamado al listview y en la sentencia sql colocar la variable que asigne al data picker, lo ejecute de la siguiente manera:

Private Sub cmd_ok_Click_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
Dim sql1 As String
Dim i As Integer
Dim DIA

DIA = Format(DTPicker1.Value, "DD/MM/YYYY")


g_db.Open "driver={SQL Server};server=SERVIDOR2;uid=profit;pwd=profit;dat abase=Prueba1"

'-- llena el combo de Usuarios
sql = "select Status_envio, Emisor, persona_envio, Numeros_envio, Texto_envio, hora_envio, pc, fecha_envio from persona_enviados where fecha_envio = '" & DIA & "'"

rs.Open sql, g_db, adOpenKeyset

''' SE RECORRE
Do While Not rs.EOF

If Not IsNull(rs.Fields.Item(0).Value) Then


With Lst_consulta_sms.ListItems.Add(, , rs.Fields.Item(0).Value)
' Cada subitem debe corresponder con cada una de las cabeceras
' la segunda cabecera es el Subitems(1) y así sucesivamente
.SubItems(1) = rs.Fields.Item(1).Value
.SubItems(2) = rs.Fields.Item(2).Value
.SubItems(3) = rs.Fields.Item(3).Value
.SubItems(4) = rs.Fields.Item(4).Value
.SubItems(5) = rs.Fields.Item(5).Value
.SubItems(6) = rs.Fields.Item(6).Value
.SubItems(7) = rs.Fields.Item(7).Value

End With
End If

rs.MoveNext
Loop


rs.Close

g_db.Close
End Sub