[Resolvido]Pegar Ultimo Id Mysql 2

Ola pessoal O amigo Alexandre me ajudou bastante no código e coloquei como resolvido porem me apareceu outra questao e se nao tiver registro na tabela ele da erro como poderia verificar se tem algum registro antes de executar ou alguem tenha uma solução para esta ocasiao

Public Function NovoID()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' utilize o código livremente mas mantenha os créditos '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call Conexao_Open("select * from tblpedidos") 'Abre a conexão para a tabela informada
rs.MoveLast
NovoID = rs("ID") + 1
rs.Close
cn.Close
End Function


Ai ele pega o ultimo ID e adiciona +1 porem se não tiver registro ele da erro.

Agradeço a ajuda

Antes mesmo de pergunta o parceiro me ajudo novamente valeu alexandre fim, ficou assim agora.


   Limpa_Campos (Me.Form.Name)
       
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
   '     utilize o código livremente mas mantenha os créditos     '
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   
   Call Conexao_Open("select * from tblsubgrupo") 'Abre a conexão para a tabela informada
   
   If rs.EOF Then
       NovoID = 1
   Else
       rs.MoveLast
       NovoID = rs("Cod_SubGrupo") + 1
   End If
   
   rs.Close
   cn.Close
   Call Add_MySQL("select * from tblsubgrupo", Me.Form.Name)
   Me.Cod_SubGrupo = NovoID
   Me.GUIADADOS.Enabled = True
   Me.Data_Cadastro = Date
   Me.SubGrupo.SetFocus
   Me.Cod_Empresa = 2