Access - No funciona, ¡¡¡ Ayuda Bucles

No me funciona. tengo estos dos bucles anidados, donde intento que por cada registro de la tabla nombres1 me imprima con todos los registros de la tabla nombres, pero el bucle más externo no corre.
*** Código completo
Private Sub Comando0_Click()
Open "C:\rtdo.txt" For Output As #1
Dim dbs As Database
Dim rst As Recordset
Dim sql As String
Set dbs = CurrentDb
Dim dbs1 As Database
Dim rst1 As Recordset
Dim sql1 As String
Set dbs1 = CurrentDb
sql = "Select * from nombres"
sql1 = "Select * from nombres1"
Set rst = dbs.OpenRecordset(sql)
Set rst1 = dbs1.OpenRecordset(sql1)

rst1.MoveFirst
rst.MoveFirst
Do While Not rst1.EOF
Do While Not rst.EOF
Print #1, rst1.Fields(1) & " - " & rst.Fields(1)
rst.MoveNext
Loop
rst1.MoveNext
Loop
rst.Close
rst1.Close
Close #1
Call Shell("notepad.exe C:\rtdo.txt", vbNormalFocus)
End Sub
*** Fin del código

Por Favor una solución Gracias.

te he contestado de nuevo en la nota anterior

un saludo

Hola en tu codigo para empezar no necesitas tener definidas dos variables para hacer referencia a la base de datos.
El buble externo si corre lo que pasa es que cuando hace la primera iteración el rst1 queda en el ultimo registro, cuando el ciclo de afuera pasa a la segunda iteración no entra al ciclo interno porque este ya está en el final del cursor. Por esto crees que no funciona el ciclo externo, cuando en realida el que no funciona sino una vez es el interno