Prezados, boa noite,
preciso migrar do access 2.0 para o access 7 e a linguagem não são as mesmas, abaixo os codigos do access 2.0 que utilizo atualmente. Se alguém puder mudar a linguagem atualizadas para o access 7, agradeceria.

' Cria uma cláusula WHERE usando critérios de procura inseridos pelo usuário e
' define a propriedade OrigemDoRegistro do Sub_Form_Cheque_Pagamento_Banco.

Dim MySQL As String, MyCriteria As String, MyRecordSource As String
Dim ArgCount As Integer
Dim Tmp As Variant

' Inicializa a contagem de argumentos.
ArgCount = 0

' Inicializa instrução SELECT.
MySQL = "SELECT * FROM [TAB_CADASTRO subformulário] WHERE "
MyCriteria = ""

' Usa valores inseridos nas caixas de texto do cabeçalho do formulário para criar critérios para a cláusula WHERE.

AdicionarAWhere [Ficha Cliente], "[FichaCliente]", MyCriteria, ArgCount
AdicionarAWhere [Nome Cadastro], "[NomeCadastro]", MyCriteria, ArgCount
AdicionarAWhere [Endereço Cadastro], "[EndereçoCadastro]", MyCriteria, ArgCount
'AdicionarAWhere [Classe Atendimento], "[ClasseAtendimento]", MyCriteria, ArgCount
'AdicionarAWhere [Ficha], "[Ficha_Cliente]", MyCriteria, ArgCount
'AdicionarAWhere [Telefone Residencial], "[TelefoneResCadastro]", MyCriteria, ArgCount
'AdicionarAWhere [Telefone Celular], "[TelefoneCelularCadastro]", MyCriteria, ArgCount
'AdicionarAWhere [Telefone Comercial], "[TelefoneComercialCadastro]", MyCriteria, ArgCount

' Se não há critério especificado, retorna todos os registros.
If MyCriteria = "" Then
MyCriteria = "True"
End If

' Cria instrução SELECT.
MyRecordSource = MySQL & MyCriteria

' Define a propriedade OrigemDoRegistro de Sub_Form.
Me![TAB_CADASTRO subformulário].Form.RecordSource = MyRecordSource

' Se nenhum registro corresponder ao critério, exibe mensagem.
' Move o foco para o botão Limpar.
If Me![TAB_CADASTRO subformulário].Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Nenhum Registro Cadastrado corresponde ao critério que você inseriu.", 48, "Nenhum registro encontrado"
Me!Limpar.SetFocus
Else
' Ativa controle na seção detalhe.
'Tmp = AtivarControles("Detail", True)
' Move o ponto de inserção para o Sub_Form.
Me![TAB_CADASTRO subformulário].SetFocus
End If