Bom, basicamente:
Dim Cnn as ADODB.Connection
Dim RsTemp as ADODB.Recordset
Set Cnn = New ADODB.Connection
Set RsTemp = New ADODB.Recordset
'Abrir conexão
'Cnn.Open ...
'Abrir tabela temporária
RsTemp.Open "SELECT CAMPO FROM TblVoucherTemp", Cnn
IF NOT RsTemp.EOF Then
'o seu código
ENDIF
RsTemp.Close
Vc abre a conexão e faz o que for necessário. Depois fecha.
Ao tentar fazer uma nova venda ou abrir a tela do pedido abra a tabela e verifique se é ou não EOF.
Se utilizar muito pode fazer disso uma função de retorno 0 ou 1.
Se for 0 sem registro, se for 1 tem registros.
at+
