Visual Basic - grilla

hola amigos:
bueno estoy haciendo un proyecto en 3capas en la cual quiero mostrar unos campos en text y los otros en una grilla (datgrid) bueno los campos de los text me muestra sin problemas pero tengo problemas con la grilla nose por que no me muestra nada........ en el codigo le asigno un codigo el cula me parece que deberia funcionar pero no me muestra nada ni me manda ningun herror espero que me puedan ayudar y decirme que esta mal para poder seguir con mi proyecto

Prjusuarios en la interface
++++++++++++++++++++++++++
Option Explicit
Dim pNeg As New prjNegocio.clsMantenimiento

Private Sub btnBuscar_Click()
Dim vVentas As prjNegocio.dtVentas
‘ muestre en text
vVentas = pNeg.BuscaCabecera(Val(txtIdVenCab.Text))
txtSerVenCab.Text = vVentas.SerVenCab
txtNumVenCab.Text = vVentas.NumVenCab
txtFecVen.Text = vVentas.FecVen

‘ muestre en grilla
Set dgDetalle.DataSource = pNeg.BuscaDetalle(Val(txtIdVenCab.Text))

End Sub

Prjnegocios
++++++++++++++++++++++++++++++++

Dim cn As New ADODB.Connection
Dim pBas As New prjConectar.clsConectar
Public Property Get BuscaDetalle(ByVal IdVen As Long) As ADODB.Recordset
Dim rsDet As New ADODB.Recordset
Conectar
rsDet.Open "SELECT * FROM VentasDetalle WHERE IdVenCab = " & IdVen, cn, adOpenKeyset, adLockOptimistic, adCmdText
Set BuscaDetalle = rsDet
'Set .DataSource = rs
End Property