Visual Basic - llamar contenido de tabla

hola
se ke me falta solo un pekeño paso para terminar lo ke ando haciendo
lo que quiero o inento hacer es que todo el contenido de la tabla me la mande a excel, este es mi codigo

im myExcelFile As New ExcelFile
With myExcelFile
FileName$ = ".Lista general.xls"
.CreateFile FileName$
.PrintGridLines = False
.SetMargin xlsTopMargin, 1.5
.SetMargin xlsLeftMargin, 1.5
.SetMargin xlsRightMargin, 1.5
.SetMargin xlsBottomMargin, 1.5
.SetFont "Arial", 10, xlsNoFormat
.SetFont "Arial", 10, xlsBold
'.SetFont "Arial", 10, xlsBold + xlsUnderline
'.SetFont "Courier", 12, xlsItalic
.SetColumnWidth 1, 5, 18

SQL = "perso"
strSQL = "SELECT * FROM perso"
Set rs = db.OpenRecordset(strSQL)
'On Error GoTo error
z = 3
Do Until rs.EOF
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 1, rs("matricula")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 2, rs("nombres")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 3, rs("dir")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 4, rs("col")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 5, rs("muni")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 6, rs("cp")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 7, rs("telc")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 8, rs("telo")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 9, rs("telcel")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 10, rs("fecha_cum")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 11, rs("decasada")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 12, rs("mail")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 13, rs("ocupa")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 14, rs("pasa")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 15, rs("fecha_ing")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 16, rs("lugar")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 17, rs("dia")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 18, rs("esposo")
rs.MoveNext
z = z + 1
Loop

donde me marca error es en el rs , para mi ke solo modificando la linea de strSQL se arregla todo pero no se como iria para que me arroje toda la informacion de la tabla y la mande a excel, gracias por au apoyo
besos

Bueno, intentas abrir el recordset (Set rs = db.OpenRecordset(strSQL) ) pero ¿ya está abierta la base de datos? Porque no veo por ningún lado que la estés abriendo; además no nos dices cuál es el error que te da.

hola Ivan , como siempre eres mi salvador, muchas gracias, te mando un besote
el error es este

runtime error 424
objet requiered
y en debug me marca esta linea
Set rs = db.OpenRecordset(strSQL)

gracias corazon

ya lo corregi, ya se donde estuvo el error, gracias besos de todas formas