Visual Basic - DATAGRID......

tengo en combo, un dtgrid y un boton de agregar ....cuando seleccionas algo del combo le das agregar y eso se va al datagrid...pero cuando lse pone en el datagrid se salta un renglo y me lo deja en blanco.....cda vez ke le das agregar deja un renglon entre los datos.

asi lo tengo...

Private Sub CreaRecordset()
Set rsDetalle = New ADODB.Recordset

rsDetalle.Fields.Append "clave_preg", adVarChar, 20
'rsDetalle.Fields.Append "num", adVarChar, 20
rsDetalle.Fields.Append "Pregunta", adVarChar, 100
'rsDetalle.Fields.Append "Respuesta", adVarChar, 50

rsDetalle.Open

Set dgDetalle.DataSource = rsDetalle
dgDetalle.Columns(0).Visible = True

dgDetalle.Columns(0).Width = 500
dgDetalle.Columns(1).Width = 3000
'dgDetalle.Columns(3).Width = 1000
End Sub

BOTON AGREGAR
Private Sub cmdAgregar_Click()
rsDetalle!Clave_Preg = dcPregunta.BoundText
'rsDetalle!num = dcPregunta.Text
rsDetalle!Pregunta = dcPregunta.Text

End Sub


COMBO

Private Sub dcPregunta_Click(Area As Integer)
If dcPregunta.Text <> "" Then
Dim rsRespuestas As New ADODB.Recordset
Dim strSql As String

strSql = "Select * from respuestas where clave_enc=" & dcEncuesta.BoundText & " and num_pre=" & dcPregunta.BoundText

rsRespuestas.Open strSql, strConexion, adOpenForwardOnly, adLockReadOnly

If Not rsRespuestas.BOF And Not rsRespuestas.EOF Then
Do While Not rsRespuestas.EOF
rsDetalle.AddNew
'rsDetalle!Respuesta = rsRespuestas!Valor
rsDetalle.Update

rsRespuestas.MoveNext
Loop

ActDesBotones "Con Datos"
End If
End If
End Sub

kita el rsDetalle.AddNew del evento click del dcPregunta:

Private Sub dcPregunta_Click(Area As Integer)
If dcPregunta.Text <> "" Then
Dim rsRespuestas As New ADODB.Recordset
Dim strSql As String

strSql = "Select * from respuestas where clave_enc=" & dcEncuesta.BoundText & " and num_pre=" & dcPregunta.BoundText

rsRespuestas.Open strSql, strConexion, adOpenForwardOnly, adLockReadOnly

If Not rsRespuestas.BOF And Not rsRespuestas.EOF Then
Do While Not rsRespuestas.EOF
rsDetalle.AddNew '<<<<Eseee kitalo
'rsDetalle!Respuesta = rsRespuestas!Valor
rsDetalle.Update

rsRespuestas.MoveNext
Loop

ActDesBotones "Con Datos"
End If
End If
End Sub