sql testing from vb