Tal como lo tienes te faltaría algo así:
Código:
...
Dim custDS As DataSet = New DataSet()
DA.Fill(custDS, "Customers")
If custDS.Tables("Customers").Rows.count = 1 then
MessageBox.Show("Conuslta Realizada OK")
End If Aunque quizá habría alguna forma un poco más óptima.
Saludos
