Estou tentando fazer uma consulta na tabela que quando, não haver nenhum registro, ele exibir um erro (MessageBox), se houver registro executar a outra pesquisar abaixo(que já está funcionando)
Tentei fazer esse select só que ainda não deu certo, acho que é o nothing "/
Sugestões?
If SQL = "select * from TabPaciente where Cod_Pac=" & Nothing Then
MessageBox.Show("Não existem pacientes registrados. Para fazer a pesquisa deve-se registrar um paciente", "Atenção!", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
objdt = navegar("TabPaciente")
i = 0
dtrw = objdt.Rows(i)
Call exibir_dadosdesconectados()
Call Acompanhante()
End If
End Sub