Botão Avançar e Retroceder com critérios

Bom dia senhores,

Tenho vários botões no form principal e ao clicar neles abrem vídeos no form.
Tentei fazer assim para o botão Avançar no form... Porém, não está dando certo... Por favor, alguém pode me dar uma ideia?

Segue como fiz:

Private Sub Cmd_pesquisar_Click()

Dim navegaform As String

navegaform = Me.cmdAvançar 'Botão avançar no form

navegaform = """" & navegaform & """"

DoCmd.GoToRecord , , acNext

'Botões - de navegação no formulário
Me.cmdSBT.Enabled = DLookup("[cmdSBT]", "fncCarregaVideo", "[cmdSBT]=" & navegaform)
Me.cmdBAND.Enabled = DLookup("[cmdBAND]", "fncCarregaVideo", "[cmdBAND]=" & navegaform)
Me.cmdTVTropical.Enabled = DLookup("[cmdTVTropical]", "fncCarregaVideo", "[cmdTVTropical]=" & navegaform)
Me.cmdTVDiário.Enabled = DLookup("[cmdTVDiário]", "fncCarregaVideo", "[cmdTVDiário]=" & navegaform)
Me.cmdRPTV.Enabled = DLookup("[cmdRPTV]", "fncCarregaVideo", "[cmdRPTV]=" & navegaform)
Me.cmdRedeFamilia.Enabled = DLookup("[cmdRedeFamilia]", "fncCarregaVideo", "[cmdRedeFamilia]=" & navegaform)
Me.cmdRedeBrasil.Enabled = DLookup("[cmdRedeBrasil]", "fncCarregaVideo", "[cmdRedeBrasil]=" & navegaform)
Me.cmdTVUnião.Enabled = DLookup("[cmdTVUnião]", "fncCarregaVideo", "[cmdTVUnião]=" & navegaform)
End Sub

O que pretendo fazer, é quando clicar no botão avançar vá para o próximo botão de comando.

Desde já agradeço a ajuda dos colegas....

Boa noite senhores... Consegui essa função aqui no forum mesmo...

Mas da erro ao acessar a base de dados...

O erro que dá é sobre o "CurrentRecord"

Função = modSetarBotoes

Public Sub SetarBotoes(nForm As Form, cmdPrimeiro As Control, cmdAnterior As Control, cmdProximo As Control, cmdUltimo As Control)
'With nForm
If nForm.CurrentRecord = 1 Then
cmdPrimeiro.Enabled = False
cmdAnterior.Enabled = False
cmdProximo.Enabled = True
cmdUltimo.Enabled = True
ElseIf nForm.CurrentRecord = nForm.RecordsetClone.RecordCount Then
cmdPrimeiro.Enabled = True
cmdAnterior.Enabled = True
cmdProximo.Enabled = False
cmdUltimo.Enabled = False
Else
cmdPrimeiro.Enabled = True
cmdAnterior.Enabled = True
cmdProximo.Enabled = True
cmdUltimo.Enabled = True
End If

End Sub

'FUNÇÕES DE NAVEGAÇÃO
Function Navegacao(Registro As String)
Select Case Registro
Case "Primeiro"
DoCmd.GoToRecord , , acFirst
Case "Anterior"
DoCmd.GoToRecord , , acPrevious
Case "Próximo"
DoCmd.GoToRecord , , acNext
Case "Último"
DoCmd.GoToRecord , , acLast

End Select
End Function

'----------------------------------------
'FUNÇÕES DE REGISTRO
Function Registro(Comando As String)
Select Case Comando
Case "SBT"
Me.cmdSBT.Enabled = True
Case "BAND"
Me.cmdBand.Enabled = True
Case "Tropical"
Me.cmdTVTropical.Enabled = True
Case "Diário"
Me.cmdTVDiário.Enabled = True
Case "Globo"
Me.cmdTVGlobo.Enabled = True
Case "RPTV"
Me.cmdRPTV.Enabled = True
Case "Familia"
Me.cmdRedeFamilia.Enabled = True
Case "RedeBrasil"
Me.cmdRedeBrasil.Enabled = True
Case "União"
Me.cmdTVUnião.Enabled = True
Case "Cultura"
Me.cmdTVCultura.Enabled = True
Case "Fultura"
Me.cmdFutura.Enabled = True
Case "CanaldoBoi"
Me.cmdCanaldoBoi.Enabled = True
Case "RedeTV"
Me.cmdRedeTV.Enabled = True
Case "Amazon"
Me.cmdAmazonSat.Enabled = True
Case "RaiMovies"
Me.cmdRaiMovie.Enabled = True
Case "PontaNegra"
Me.cmdPontaNegra.Enabled = True
Case "TVEscola"
Me.cmdTVEscola.Enabled = True
Case "Gazeta"
Me.cmdGazeta.Enabled = True
Case "France24"
Me.cmdFrance24.Enabled = True
Case "SextaTV"
Me.cmdSextaTV.Enabled = True
Case "LivreTV"
Me.cmdLivreTV.Enabled = True
Case "Caruaru"
Me.cmdCaruaru.Enabled = True
Case "FOX"
Me.cmdFoxFilmes.Enabled = True
Case "Azteca"
Me.cmdAzteca.Enabled = True
Case "Combate"
Me.cmdCombate.Enabled = True
Case "Rural"
Me.cmdRural.Enabled = True
Case "AgroCanal"
Me.cmdAgroCanal.Enabled = True
Case "TVTerra"
Me.cmdTerraTV.Enabled = True
Case "Galega"
Me.cmdGalega.Enabled = True
Case "Saude"
Me.cmdSaude.Enabled = True
Case "AllSports"
Me.cmdAllSportes.Enabled = True
Case "RealMadrid"
Me.cmdRealMadrid.Enabled = True
Case "BANDNews"
Me.cmdBANDNews.Enabled = True
Case "ESPN"
Me.cmdESPN.Enabled = True
Case "EIMAXX"
Me.cmdEIMAXX.Enabled = True
Case "Gideões"
Me.cmdGideões.Enabled = True
Case "BoasNovas"
Me.cmdBoasNovas.Enabled = True
Case "FonteTV"
Me.cmdFonteTV.Enabled = True
Case "RIT"
Me.cmdRIT.Enabled = True
Case "TVCJC"
Me.cmdTVCJC.Enabled = True
Case "PortalGospel"
Me.cmdPortalGospel.Enabled = True
Case "BoaEsperança"
Me.cmdBoaEsperança.Enabled = True
Case "IPBTV"
Me.cmdIPBTV.Enabled = True
Case "RedeGospel"
Me.cmdRedeGospel.Enabled = True
Case "CançãoNova"
Me.cmdCançãoNova.Enabled = True
Case "TVMaceio"
Me.cmdTVMaceio.Enabled = True
Case "ADRecife"
Me.cmdADRecife.Enabled = True
Case "TVNações"
Me.cmdTVNações.Enabled = True
Case "Universal"
Me.cmdUniversal.Enabled = True
Case "RedeSuper"
Me.cmdSuper.Enabled = True


End Select
End Function

No Atual do form principal

Private Sub Form_Current()
'Call SetarBotoes(Me.Form)
Call SetarBotoes(Me, cmdPrimeiro, cmdAnterior, cmdProximo, cmdUltimo)
End Sub

Fazendo referencia aos 4 botões de pesquisa...

Por favor, quem poder me ajudar a concluir esse trabalho pessoal... Fico grato...

Meu conhecimento inda é pouco. Tenho dificuldades, mais devagarzinho chego lá....

Obrigado desde já....