Comprueba si el dataset está vacío:
por ejemplo:
Cita: if DS is nothing then
msgbox("No hay empleados")
End if
O bien, antes de coger el dato que contien n fila en y posición:
Cita: if idDbNull(DS.Tables("Employee").Rows(0)(0))=False Then
'coge el dato
End if
saludos