Visual Basic - Enlazar BD otra vez, miren el ejemplo que puse

Estimado amigo esto es lo que yo hice, pero cuando click en el boton siguiente que cree la planes no pasa junto con la de socios...
tengo un datacontrol llamado dtaplanes y otro llamado dtasocios
y los datafield son NombreSocio y NombrePlanes

Private Sub cmdsiguiente_Click()
DtaSocios.Recordset.MoveNext
With DtaPlanes
DtaPlanes.Recordset.MoveNext
' End With
If DtaSocios.Recordset.EOF = True Then
MsgBox "Ultimo registro", vbExclamation
End If
End Sub

Private Sub cmdguardar_Click()
If TxtApellido.Text = "" Then
MsgBox "Es necesario ingresar el Apellido", vbExclamation
TxtApellido.SetFocus
End If
If TxtNombre.Text = "" Then
MsgBox "Es necesario ingresar el Nombre", vbExclamation
TxtNombre.SetFocus
End If
DtaSocios.Recordset.Update
cmdguardar.Enabled = False
fradatos.Enabled = False
MsgBox "Los datos han sido guardados correctamente", vbInformation
End Sub

desde ya muchas gracias