Comparar campos de tablas urgente

[Frehley]

Dim x As Boolean
Dim strSQL1 As String
Dim strSQL2 As String
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset

x = Conectar(cn, App.Path, "ADM Sin actualizar")

strSQL1 = "Select * From TBL_Cursos"
Set rs1 = cn.Execute(strSQL1)


While Not rs1.EOF
strSQL2 = "Select * From TBL_Informes_Cursos Where CursoID = " & rs1!CursoID
Set rs2 = cn.Execute(strSQL2)
If rs2.RecordCount <= 0 Then cn.Execute ("Insert Into TBL_informes_Cursos (CursoID, Fecha, SemanaID) Values (" & rs1!CursoID & ", " & format(rs1!Inicia,"dd/mm/yyyy") & ", " & 0 & ")")
rs1.MoveNext
Wend
MsgBox "listo"
x = Desconectar(cn)