dim strname as string
strname = currentproject.connection.execute("select name from emplyees where id =3").getstring