Ajuda - Cadastrar dados com dados de outras tabelas

[Bellebs]

Boa noite.

Estou com um problema com meu projeto que precisa cadastrar em uma tabela dados de uma tabela que já existe, só que quando tento cadastrar aparece o seguinte erro:

Compile Error:

Method or Data Member not Found

Eis o código que deveria fazer o comando:

Dim mat As Variant

If Not de.rsalunos.Fields("matricula").EOF And Not de.rsalunos.Fields("matricula").BOF Then

    de.rsalunos.MoveFirst
    mat = de.rsalunos.Fields("matricula").Value
    de.rsmatriculas.AddNew
    de.rsmatriculas.Fields("matalu") = mat
    de.rsmatriculas.Fields("modalidade") = de.rsmodalidade.Fields("codigo").Value
    de.rsmatriculas.Fields("valor") = txtvalfin.Text
    de.rsmatriculas.Fields("data_inicio") = txtdatini.Value
    de.rsmatriculas.Fields("data_termino") = txtdater.Value
    de.rsmatriculas.Fields("plano") = cboplan.Text
    de.rsmatriculas.Update
    
    de.rscaixa.AddNew
    de.rscaixa.Fields("historico") = "Matrícula Efetuada"
    de.rscaixa.Fields("data") = (VBA.Date)
    de.rscaixa.Fields("hora") = (VBA.Time)
    de.rscaixa.Fields("forma") = cboplan.Text
    de.rscaixa.Update
    
    MsgBox "Matrícula Efetuada com Sucesso!!", vbInformation, "Gravação Bem Sucedida"
    
End If

O erro dá na primeira linha de código:

If Not de.rsalunos.Fields("matricula").EOF And Not de.rsalunos.Fields("matricula").BOF Then

Ps.: meu banco de dados é em Access 2002 e meu Visual Basic é 6.

Desde já agradeço.

[Matheus-vb6]

Bellebs, você quer passar os dados de uma tabela para outra? é isso?

Você utiliza conexao ado?

[Bellebs]

Isso, os dados que foram gravados em uma tabela, deverão ser gravados em outra; no caso, são os dados de uma tabela com turmas cadastradas que devem ser cadastrados numa outra tabela com as turmas específcas de um único aluno.

[Bellebs]

Fiz upload dos arquivos usados para a criação dos formulários em questão (para a gravação dos dados de uma tabela em outra); é um programa para o cadastramento de alunos e matrícula destes em uma respectiva turma.

O link: http://www.4shared.com/file/KhdHg_EJ/matricula.html

Quem puder por favor dá uma olhada no código pra mim; já tentei de tudo e nada dá certo :wacko:

Obrigada.

[kuroi]

Bellebs, .EOF e .BOF são propriedades do recordset e não dos campos.

acho q a linha tinha q ficar assim não??

If Not de.rsalunos.EOF And Not de.rsalunos.BOF Then

[Matheus-vb6]

Eu faria assim

set rsdados=new adodb.recordset
rsdados.open "conexao..."cn
do while rsdados.eof=false
inserir ="codigo de inserir"
cn.execute inserir
rsdados.movenext
loop

Abraços